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IMPORTANT INFO 

For clarity, some program lines show more than 80 characters (including spaces). If 
you enter more than 80 characters in a program line, you will get a SYNTAX ERROR. 
Avoid this problem by not typing in excess spaces or by removing excess spaces if the 
program line fills more than two screen lines. Each screen line is 40 characters long. 

The table on page 7 and 1 17 is missing a listing. It affects the backward scrolling in 
Shoot The Rapids (220), Space Maneuvers (170) and Le Mans (210). When you see 
[INST], press these keys simultaneously: SHIFT-INST/DEL. 
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Amazing Games 
For Your 

COMMODORE 64 

ARCADE GAMES 


Shoot The Rapids 8 

Stay on course in your kayak while tra veling down a dangerous set of rapids. 

Night Sky 10 

Invaders from outer space, coming fast and straight at you! Stop them before they crash into you. 

Space Maneuvers 13 

Fly your spacecraft through crowded space traffic. Avoid collisions to score. 

Missile Defense 15 

Defend your cities against missile attack by intercepting oncoming missiles. 

Wallbangers 18 

Trap your opponent (the computer) by building walls on the screen that limit the computer’s cursor motion. 

Rear Gunner 20 

You’re defending the rear of a space fighter. Be careful not to shoot other members of your squadron. 

LeMans 22 

Drive your race car through a twisting track. A void other cars, oil spills and track hazards. 

Moon Lander 25 

Land your spaceship on the moon’s surface by controlling thrust, speed and other factors. 

Gambler 28 

Play the odds with the computer’s one-armed bandit. 

Orion 31 

You are at the controls of a starship simulator, practicing defense of your homeland against imperial drones. 

Berserkotron 34 

You’ve gone to interview for a job as a computer-game tester but entered the Robot Room where visitors are not 
allowed. Run away if you can. 

BOARD GAMES 

Shell Game 37 

Computer version of the classic sleight-of-hand game. 

Pirates 40 

Find and battle the scourge of the sea. You’re the captain looking for adventure, glory and stolen gold. 

Master Code 44 

Computer selects a code. You crack it. 

A Day At The Races 46 

Bet on a dog race. Watch the race and find out if you're the winner. 

Lost Dutchman Mine 50 

You're looking for the mine’s treasure. Find clues while escaping from ghosts. 


Biorhythm 54 

Computer calculates and predicts your emotional, mental and physical levels for any date. 

Queen Of The Nile 57 

Search for Cleopatra's lost treasure, but be careful of snake pits and mummies. 

Thin Ice 60 

Go ice fishing late in the season, but watch out for what lurks under the ice. 

Bomb Squad 62 

Locate and diffuse a bomb hidden in a huge skyscraper. 

Utopia 66 

You're an island ruler beset with decisions. Will they help or hinder your reign ? 

Tic-Tac-Toe 71 

For two players. 

Dice Racers 74 

Use computer dice to race your cars across the finish line. 

Alien 77 

Your chance to visit Earth. Will you come as friend or foe? 

EDUCATIONAL GAMES 

Hangman 85 

Home-computer version of the popular word game. 

Dr. Sigmund 87 

Visit the famous analyst for ink-blot testing. Get professional advice. 

Spatial Concepts 91 

A castle where objects can be placed in a variety of positions. For young children. 

Mind Reader 95 

Can you guess the number the computer has in mind? Can the computer guess the one you have in mind? 

Poetry 99 

Wouldn’t you know it? Your computer is a poet! 

No Free Lunch 101 

Cross a hazardous tide pool to reach your lunch by giving correct math answers. 

Spelling Bee 104 

Watch the bumble bee spell out a scrambled word. Give the correct spelling to win. 

Speed Reading 106 

Learn computerized reading skills for rapid information intake. Gain speed as your skill level improves. 

Pre-School Counter 110 

Computer displays 1 to 10 symbols and asks “How many?" Child receives a happy or sad face for correct or 
Incorrect answers. 

Keyboard Shooting Gallery 112 

Try your hand at the computer shooting gallery. Learn the keyboard at the same time. 

Translator 114 

Computer has foreign words and English equivalents for user’s study of foreign language. 


Introduction 


Introduction 

This book stresses one thing— computers are fun! Even though you may use your computer for 
serious applications, you should not ignore its ability to give you hours of challenging 
entertainment. Computer games add that dimension to home-computing. 

ABOUT THE 35 GAMES IN THIS BOOK 

Some game books give you short programs and tell you to add scoring, graphics and other 
interesting things. This book is different. It consists of 35 complete games. They have color, 
graphics, sound, instructions to players, and scoring. 

In addition to the program listing, each game has suggestions for possible programming 
variations. First enter the complete, working game. Try it as is. Then change it if you want to. 

This book doesn’t explain the rudiments of BASIC programming because I assume that you 
already have reference books to do that. What the book does supply is a variety of fun game 
programs that work. 

I’ve divided the games into three categories: Arcade, Board and Educational. The first category 
has moving graphics, like video games that cost money to play. The second includes puzzle and 
logic games you might play on a board, such as Tic-Tac-Toe. The third category, educational games, 
includes word and number fun for children and older computer users. 

How To Use— Each game begins with a description of game rules, number of players, display, 
objective, scoring and keys to press. Don’t skip this section. Read it carefully. 

Then enter the program listing into your computer exactly as shown. The listing is a 
reproduction of actual printout of a tested, debugged, working program. When you make typing 
mistakes— and you will— the game may not work as intended. Or, it may not work at all. You’ll 
have to find your mistakes and fix them. 

Play the game for a while. If you like it, save it on disk or tape. Otherwise, you’ll have to enter 
the game each time you want to play it. 

How To Change It— After you’ve become familiar with a game, consider changing or improving it. 
Use the comments to the side of the computer printout as suggestions on how you can simplify the 
game, make it more complicated, speed it up, slow it down or supply different data. Only some of 
the possibilities are shown. Have fun experimenting! 

Although this isn’t a book about programming, changing the games will help you learn more 
about BASIC programming. If you want to learn still more, get How to Program Your Commodore 
64, BASIC for Beginners by Carl Shipman, also published by HPBooks. BASIC is a good 
programming language because it’s easy to understand. Commands are in plain English, and rules 
are straightforward and uncomplicated. 

Even if you don’t know BASIC, you’ll have good times with these games. If you already know 
some BASIC, all the better. This book can be a springboard to your own creative programming. 

WHAT YOU NEED TO USE THIS BOOK 

The games in this book are written specifically for the Commodore 64 computer. None of these 
games requires a lot of memory. Plenty of memory is left over for you to add your own features to 
any program in this book. 

Other Items— You also need a b&w or color monitor. I recommend that you use a disk drive or 
cassette tape recorder to save the games. That way, you don’t have to type them in each time you 
want to use them. 

Some arcade games should be played with a joystick. It’s an inexpensive accessory that makes 
these games more enjoyable. 
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Introduction 


What Else? —I assume that you know how to use your computer hardware and that you’re familiar 
with your computer keyboard. I also assume that you’re eager to have fun with your computer and 
to learn something about BASIC as painlessly as possible. 

If you think that typing an amazing game into your computer isn’t painless enough, there’s an 
easier way. Simply send a check or money order for $30 and your name and address to the address 
below. You’ll receive a floppy disk of all 35 games in this book. 

MIKOWARE 
PO BOX 43911 
Tucson, AZ 85733 



For more information about programming your Commo- 
dore 64 computer in BASIC, get this book. 


5 



Key-Combination Table 


UNDERSTANDING PROGRAM PRINTOUTS 

The program lines in this book are actual computer printouts of the working games. To 
make the lines easier for you to copy, a special notation system is used for graphics 
characters, color and cursor keys. 

An underlined, upper-case letter means that you should hold down the SHIFT key 
while entering that letter. For example, if you see Z* shift while entering Z. A diamond will 
appear on the screen. An underlined, lower-case letter indicates that you should hold 
down the Commodore key (c=) while entering that letter. 

Some keys (+, -, £, @, *) will be underlined twice if the Commodore key (c=) is to be 
held down; underlined once if the SHIFT key is to be held down. 

When you see a word in brackets, it indicates using special control keys. For example, 
[DOWN] means press the cursor-up/down key. [DOWN 7] means press the cursor- 
up/down key seven times. The only exception is with spaces. A single space looks that 
way in the program line. If two or more spaces are required, an expression will be in 
brackets, such as [SPACE 2]. 

The table on the next page lists some more key combinations. For example, if the pro- 
gram shows [WHT] press the CTRL and WHT keys at the same time. 
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KEY-COMBINATION TABLE 

Listing 

Press Key(s) 

[UP] 

SHIFT-CURSOR UP/DOWN 

[DOWN] 

CURSOR UP/DOWN 

[LEFT] 

SHIFT-CURSOR 


LEFT/RIGHT 

[RIGHT] 

CURSOR LEFT/RIGHT 

[HOME] 

CLR HOME 

[CLR] 

SHIFT-CLR HOME 

[RVSON] 

CTRL-RVS ON 

[RVSOFF] 

CTRL-RVS OFF 

[BLK] 

CTRL-BLK 

[WHT] 

CTRL-WHT 

[RED] 

CTRL-RED 

[CYN] 

CTRL-CYN 

[PUR] 

CTRL-PUR 

[GRN] 

CTRL-GRN 

[BLU] 

CTRL-BLU 

[YEL] 

CTRL-YEL 

[ORN] 

C=1 

[BRN] 

C=2 

[LT. RED] 

C=3 

[DARK GRAY] 

C s 4 

[MED. GRAY] 

C=5 

[LT. GRN] 

C= 6 

[LT. BLU] 

C=7 

[LT. GRAY] 

C=8 

[F-1] 

fl 

[F-2] 

f2 

[F-3] 

f3 

[F-4] 

f4 

[F-5] 

f5 

[F-6] 

f6 

[F-7] 

f7 

[F-8] 

f8 

[POUND] 

£ 


A duplicate of this table is in the back of this book, page 
1 1 7. Cut it out and glue it to a piece of stiff cardboard. Use 
it for a ready reference when entering program lines. 



Shoot The Rapids 


Shoot The Rapids 

Journey down a winding river in your kayak. The farther you go, the more treacherous the river. 
This fast-paced game requires concentration and skill. Use a joystick or < and > keys to paddle 
safely between river banks. 

If you crash, your score is displayed along with commentary. Press any key to play again or 
RUN/STOP to quit. 


Alteration— To make the river wind more, 
increase the value of variable A in line 120 
(maximum value is 0.5) and decrease variable 
B (minimum is 0.5). 


Programming Note— Line 220 is a special trick 
that makes the screen display scroll backward. 


100 REM SHOOT THE RAPIDS 
110 HS=Os GOTO 420 

120 R$= " C BLU 3 C R VSON 3 C SPACE 73":R=1B 
: D=0 : S= 1 024 : 00=55296 : L= 1 924 : A= . 4 
sB=. 7 

130 PRINT "CCLR3" : POKE 53281,13 
140 FOR X=1 TO 23s PRINT TAB< R)R$ 

: NEXT 

150 S0=54272: FOR Z=SO TO SO+24 

s POKE Z,0: NEXT Zs POKE SQ+5,31 
: POKE 50+6,31: POKE SQ+24,15 
160 POKE S0+ 1,65s POKE SO, 227 
s POKE SQ+4,129:K= RND (4) 
s IF R<8 THEN K=K+. 1 
170 IF K<A AND R>1 THEN R=R-1 
180 IF R>30 THEN K=K-. 1 
190 IF K>B AND R<38- LEN (R$) THEN 
R=R+1 

200 PRINT " C HOME 3 CD0WN3 " TAB( INT < 
RND (8) *39) ) "CORN]*" 

210 PRINT " C HOME 3 C DOWN]" TAB ( R)R$ 

220 PRINT "CHOME3CDOWN3CLEFT3CINST3" 
s POKE 218,156 
230 POKE L+40,160 

240 JY= PEEK (56320) :JY= 15- (JY AND 15) 
s IF JY=0 THEN JY= PEEK (56321) 
:JY=15-(JY AND 15) 

250 IF PEEK (197) =47 OR (JY<7 AND 
JY>3) THEN L=L-1 

260 IF PEEK (197) =44 OR (JY>7 AND 
JY< 11) THEN L=L+1 
270 IF PEEK (LX >160 THEN 320 
280 POKE L,193:D=D+.5: IF D>HS THEN 
HS=D 

290 PRINT " C HOME 3 C BLK 3 SCORE 
s" STR$ ( INT ( D ) ) + " HIGH 
STR$ ( INT (HS))+ M " 

300 IF D/50= INT (D/50) AND D<201 
THEN R^= LEFT$ (R$, LEN (R^>-1) 

310 POKE SO+4,128: GOTO 160 
320 POKE L,90: FOR T=1 TO 2000 
s NEXT T 

330 PRINT " C HOME 3 C BLK 3 SCORE 
s" STR^ ( INT (D) ) +" " 

340 IF D>HS THEN HS=D 
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Shoot The Rapids 


Alteration— Change the commentary in lines 
350 to 380. 


350 IF DO50 THEN PRINT "YOUR PADDLE 
MUST HAVE BROKEN" 

360 IF D<=200 AND D>50 THEN PRINT 
"SNAGGED A TREE LIMB" 

370 IF D<=300 AND D>200 THEN PRINT 
"YOU MUST BE PART OTTER" 

380 IF D>300 THEN PRINT "I SEE YOU 
HAVE DONE C SPACE 33THIS BEFORE" 

390 PRINT s PRINT "HIT ANY KEY TO 
RESTART": POKE 198,0 
400 GET Q$: IF Q$="" THEN 400 
410 GOTO 120 

420 PRINT " ECLR3 " : PRINT "SHOOT 
THE RAPIDS! !! PRINT 
430 PRINT : PRINT "YOU ARE ABOUT 

TO SHOOT THE RAPIDS INCSPACE 43 
YOUR KAYAK. " 

440 PRINT : PRINT "CONTROL YOUR 

PADDLES WITH YOUR JOYSTICKCSPACE 23 
OR THE < > KEYS." 

450 PRINT : PRINT "KEEP BETWEEN 
THE RIVER BANKS.": PRINT 
: PRINT "HIT ANY KEY TO START." 

460 POKE 198,0 

470 GET Q$: IF Q$="" THEN 470 
480 GOTO 120 





Night Sky 


Night Sky 

It’s time to defend against invaders from space. They’re coming straight at you, and getting 
bigger! Distance is determined by the size of the incoming invader. If you don’t stop an invader, it 
crashes into you. 

You move your aim sight by using a joystick. The cursor keys will work too. Fire by pressing the 
joystick’s fire button or the keyboard’s space bar. 


Alteration— Change the starting range by 
altering SR=2000 in line 140. 


Alteration— Change the range at which the 
invader becomes larger by changing 
RA< 1 500 in line 170 and RA< 1 000 in line 
180. 


100 REM NIGHT SKY 
110 DIM D ( 15) : GOSUB 510 
120 PRINT " ECLRIl M 

130 FOR X =55296 TO 56296: POKE X,1 
: NEXT X 
140 S=0:SR=2000 
150 RA=SR:R=1 

155 FOR X =55296 TO 56295: POKE X,l: 
NEXT X 

160 EL=1 144+ INT ( RND <S)#800> 
:AL=1524:AC=43 

170 FOR X=0 TO 4: POKE EL+X,32: NEXT X 
: RA=RA-10: IF RA<1500 THEN R=2 
180 IF RA< 1000 THEN R=3 
190 D= INT ( RND <8) *16) : K=EL+D <D> 

: IF K>1 144 AND K<1944 THEN EL=K 
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Night Sky 


200 IF RAC 10 THEN 390 

210 POKE AL,32s FOR X*0 TO 4 

s POKE EL+X,EC<R,X) ! NEXT X 
220 K* PEEK ( 197) : J= PEEK <653) 

230 PRINT " C HOME 3 C WH I TE 3 C SPACE 43 
SCORE*" STR$ (S) +" CSPACE 113 
RANGE*" STR$ <RA)+" CSPACE 23" 

240 JY* PEEK (56321) :FI*JY AND 16 
:JY=15-(JY AND 15) 

250 POKE AL, 32s IF AL>1104 AND <JY*1 
OR JY*5 OR JY*9 OR <K*7 AND J*l)) 
THEN AL*AL-40 

260 IF ALC1945 AND <JY=2 OR JY*6 OR 
JY=10 OR (K*7 AND J*0) ) THEN 
AL*AL+40 

270 IF AL>1 104 AND < < JY>3 AND JYC7) 

OR <K*2 AND J*1 ) ) THEN AL*AL-1 
280 IF ALC1945 AND <JY>7 OR <K*2 AND 
J=0)) THEN AL=AL+1 
290 IF FI >0 THEN 320 
300 POKE SO+5,1: POKE SO+6,9 
s POKE SO+24, 15 
310 POKE SO+1,5: POKE SO, 235 

s POKE 50+4,129! POKE SO+4,128 
320 IF PEEK <AL) < >32 AND CFI*0 OR 
K*60) THEN 340 
330 POKE AL, AC: GOTO 170 
340 POKE N,7: S*S+RAs IF SR >200 THEN 
SR*SR— 100 

350 FOR LO*SO TO SO+24: POKE L0,0 
: NEXT 

360 POKE SO+5 , 1 : POKE SO+6,15 
! POKE SO+24, 15 
370 POKE SQ+1,5: POKE SO, 235 

s POKE SO+4,129: POKE SO+4,128 
380 FOR T*i TO 3000s NEXT T: POKE N,0 
s PRINT " CCLR3" s GOTO 150 
390 POKE N-l ,2: POKE N,7 

: PRINT " CCLR3 CWHITE3 CDOWN 103 
CSPACE 133***CRASH***" 

400 FOR LO*SO TO SO+24 : POKE LQ,0 
s NEXT 

410 POKE SO+5, 15s POKE SO+6,15 
s POKE SO+24, 15 
420 POKE SO+l,ls POKE SO, 235 

s POKE SO+4,129! POKE SO+4,128 
430 FOR X*1 TO 99s IF < PEEK <N) AND 
15) *7 THEN POKE N,2: GOTO 450 
440 POKE N,7 

450 FOR T*1 TO 44s NEXT T,X 

460 FOR T*1 TO 2000: NEXT : POKE 198,0 

470 POKE N,0: POKE N-l, 6 

480 PRINT : INPUT "PLAY AGAIN" ;Q$ 

MORE- 
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490 IF LEFT* <Q$, 1)="Y" THEN 120 

500 END 

510 S0=54272:N=5328is POKE N,0 
: PRINT "ECLR3 [WHITE!" 

520 PRINT “YOU ARE ABOUT TO PROTECT 
THE NIGHT SKY." 

530 PRINT "INTERCEPT THE ENEMY AS 
IT APPROACHES." 

540 PRINT s PRINT "MOVE YOUR AIM 
SIGHT WITH A JOYSTICK** 

550 PRINT "OR THE CURSOR CONTROL 
KEYS. 11 

560 PRINT* "PRESS THE FIRE BUTTON 

OR SPACE BAR TQCSPACE 33FIRE. " 
s PRINT 

570 PRINT "THE GAME ENDS WHEN THE 

ENEMY CRASHES C SPACE 43 INTO YOU." 
s PRINT 

580 PRINT "GOOD LUCK." 

590 FOR X*0 TO 7s READ D(X): NEXT X 

600 FOR X*1 TO 3s FOR Y=0 TO 4 
: READ EC (X , Y) s NEXT Y,X 

610 PRINT s PRINT "HIT ANY KEY TO 
START. " 

620 GET Q$: IF Q*»"" THEN 620 

630 RETURN 

640 DATA -41,-40,-39,-1,1,39,40,41 

650 DATA 32,109,125,32,32,32,109,42, 
125,32,124,67,81,67,126 




Space Maneuvers 


Space Maneuvers 

You’re the pilot of a spaceship on a secret mission, traveling through crowded space traffic. To 
score, avoid collisions with asteroids, mercenary drones and dangerous enemy spacecraft. The 
deeper you penetrate space, the more difficult your task! Use your joystick or < and > keys to 
maneuver left and right. Saving the galaxy requires 1000 points. 


Alteration— Increase the number of drones by 
changing RND(3)> .8 to RND(3)> .4 in line 
150. 


100 REM SPACE MANEUVERS 
110 SOTO 350 

1 20 DL= . 1 s P=0 : S~ 1 024 : L=S+900 
130 PRINT " CCLR3 CWHITE3 " 

: POKE 53280,6: POKE 53281,0 
140 PRINT " C HOME 3 C DOWN 3" TAB ( INT ( 

RND (7) *36) ) "WC SPACE 33WHSPACE 33 
W" 

150 If P>100 AND RND <3)>.8 THEN 

PRINT " C HOME 3 C DOWN 3 " TAB( INT ( 

RND (7) *39) ) ,, 3tCPQUND3 H 

MORE- 
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Space Maneuvers 


Alteration— Increase the number of enemy 
spacecraft by changing RND(4)> .9 to 
RND(4)> .6 in line 160. 

Alteration— Change symbols for drones and 
enemy spacecraft in lines 150 and 160, 
respectively. 


Alteration— If the galaxy is saved, add 
triumphant music in lines 300 to 309. 


160 IF P>400 AND RND (4) >.9 THEN 

PRINT " [ HOME 3 [ DOWN 3 " TAB< INT ( 
RND (7) *58) ) " *Z[PQUND3 " 

170 PRINT " C HOME 3 C DOWN 3 [LEFT 3 [ INST3 " 

: POKE 218,156 

180 P=P+1: IF P>999 THEN 300 
190 PRINT "C HOME 3 SCORE 

:" STR$ ( INT (P))+" ” 

200 JY= PEEK (56320) :JY=15-(JY AND 15) 
s IF JY=0 THEN JY= PEEK (56321) 
:JY=15-(JY AND 15) 

210 POKE L+40,32: IF PEEK (197) =47 
OR ( JY<7 AND JY>3) THEN L=L-1 
220 IF L< 1 983 AND ( PEEK (197) =44 OR 
( JY>7 AND JY< ID) THEN L=L+1 
230 IF PEEK (LX >32 THEN 250 
240 POKE L, 65: POKE L+54272,1: 

GOTO 140 

250 E=54272: FOR X=E TO E+24 

: POKE X ,0: NEXT X: POKE E+5,15 
: POKE E+6,15: POKE E+24, 15 
260 POKE 53280,2: POKE E+1,5 
: POKE E,235: POKE E+4,129 
: FOR V=1 TO 250 

270 IF F=0 THEN PRINT "CCLRICDOWN 73 
[SPACE 113***** CRASH *****'• 

: POKE 53281 ,7:F=1: GOTO 290 
280 PRINT " CCLR3 " : POKE 53281, 2 :F=0 
290 NEXT V: POKE 53280,6 

: POKE 53281,0: POKE S+4,128 
: GOTO 310 

300 PRINT “CCLR3CD0WN 103 THE GALAXY 
IS SAVED!” 

310 PRINT " CCLR3": PRINT "[SPACE 83 
HIT ANY KEY TO RESTART" 

320 PRINT : PRINT "[SPACE 133SCORE 
= "P: POKE 198,0 
330 GET Q$: IF Q$="" THEN 330 
340 GOTO 120 

350 PRINT "[CLR3"s PRINT "PREPARE 
FOR A JOURNEY THROUGH SPACE." 

360 PRINT "AVOID ASTEROIDS, DRONES, 
AND SPACESHIPS. USE JOYSTICK 
OR < > "; 

370 PRINT "KEYS TO MOVE LEFT 
ORRIGHT.": PRINT 

380 PRINT : PRINT "HIT ANY KEY TO 
RESTART": POKE 198,0 
390 GET Q$: IF Q$=" " THEN 390 
400 GOTO 120 
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Missile Defense 


Missile Defense 

You must save your cities by intercepting oncoming enemy missiles. Use your joystick to move 
your laser sight (+). The cursor keys will work too. Fire by hitting the joystick’s fire button or the 
keyboard’s space bar. Each shot costs you 1 point. Each hit gets you 100 points. Destroying a missile 
does not require a direct hit. A close shot may work. 


Alteration— Increase the number of cities to 
five by changing the value of CT to 5 in line 
150. 

Alteration— Increase the points for destroying 
a missile to 150 by changing D in line 410 to 

D-D+150. 


100 REM MISSILE DEFENSE 

110 GQSUB 520:B$<3>*"EYEL3v£fb" 

! B$ (2) ■" CDOWNI CRED3 CRVSQN3b 
E R VSQFF 3 ed E YEL 3 v " 

:B$ <l)~"EDOWN 23 C RED 3 be -f " 

: B$ (O) =" EDOWN 33 ERVSON3v" 

120 A$*"E HOME 3 EDOWN 193" 

130 FOR X-0 TO 8: READ EL(X),EC<X> 

: NEXT 

140 FOR X=0 TO 6: READ CLtX>,CH<X> 

: NEXT X 

150 D=0:CT*4:P=80 
160 PRINT "CCLR3" 

170 POKE 53280,6: POKE 53281,14 

: FOR X*55296 TO 56175: POKE X,0 
: NEXT 

MORE- 
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180 FOR X =56176 TO 56295; POKE X,5 
s NEXT ; FOR X=1904 TO 2023 
s POKE X,160; NEXT 
190 CL=1864 

200 C=CL+ I NT ( RND (8) *30) 
s IF P>0 THEN P=P-10 
210 FOR X=0 TO 6: POKE C+CL (X) ,CH (X) 

; NEXT X 

220 ML=C-B 1 8; MC=8 1 s MD=39 

; IF RND (8) >.5 THEN MD*41;ML=ML-1 
230 AL=C-70-60* RND (8)*7;AC=43 
240 MI=ML;P*P-1 

250 K= PEEK ( 197) : J= PEEK <653) 

; FOR T*0 TO Ps NEXT T 
260 PRINT " C HOME 3 C WH I TE 3 C SPACE 43 
SCORE*" STR$ (D) +" CSPACE 113 
CITIES*" STR$ <CT)+" CSPACE 23" 

270 JY* PEEK (56321) ;FI*JY AND 16 
;JY*15-(JY AND 15) 

280 POKE AL,32: IF AL>1104 AND <JY=1 
OR JY=5 OR JY*9 OR <K=7 AND J=l>) 
THEN AL=AL-80 

290 IF AL< 1745 AND <JY=2 OR JY=6 OR 
JY=10 OR (K=7 AND J=0) ) THEN 
AL=AL+80 

300 IF AL>1 104 AND ( <JY>3 AND JY<7> 

OR (K=2 AND J*1 ) ) THEN AL=AL-2 
310 IF ALC1825 AND (JY>7 OR <K=2 AND 
J=0>) THEN AL=AL+2 
320 POKE ML , 32 : ML*ML+MD 

; IF PEEK (ML) 032 AND PEEK 
(ML)OAC THEN 440 
330 POKE ML,MC: POKE AL, AC 

; IF K=60 OR K=15 OR FI<>16 THEN 
350 

340 GOTO 250 

350 FOR E=0 TO 8: POKE AL+EL(E) ,32 
s NEXT E: IF D>0 THEN D=D-1 
360 IF PEEK (ML) 032 THEN 250 
370 FOR E*0 TO 8; POKE ML+EL(E) ,EC(E) 
s POKE ML+EL(E) +54272,7; NEXT 
380 S=54272: FOR L=S TO S+24 

; POKE L,0: NEXT ; POKE S+5,15 
; POKE S+6,15; POKE S+24, 15 
390 POKE S+1,5: POKE S,235 

; POKE S+4,129; POKE S+4,128 
; FOR T*0 TO 999; NEXT T 
400 FOR E=0 TO 8; POKE ML+EL(E) ,32 
; POKE ML+EL(E) +54272,0; NEXT 
410 D=D+100 

420 FOR X=0 TO 6; POKE C+CL (X) , 32 
; NEXT X; V=0 
430 GOTO 200 



Missile Defense 


440 FOR X=0 TO 3s PRINT A$; TAB< 

C-CL) B$ (X) : NEXT 
450 S=54272s FOR L-S TO S+24 

s POKE L,0: NEXT s POKE S+5,15 
s POKE S+6, 15s POKE S+24,15 
460 POKE S+l ,5s POKE S,235 

s POKE S+4, 129s POKE S+4, 128 
s FOR T=0 TO 2000s NEXT T 
470 CT-CT-ls IF CT>0 THEN 160 
480 PRINT "CCLRKWHITEUCDOWN 71 
C SPACE 8 3** ALL CITIES 
DESTROYED**” s PRINT 
s PRINT ” SCORE- "D 
490 END 

500 DATA -41,85,-40,66,-39,73,-1,67,0,90, 
1,67,39,74,40,66,41,75 
510 DATA 0,254,1,254,2,252,-40,108,-39, 
32,-38,97,-37,32 

520 PRINT " CCLR3 t WHITE! " s PRINT "SAVE 
YOUR CITY BY INTERCEPT I N8 ON 
C SPACE 73CQMINB MISSILES.” 

530 PRINT s PRINT "USE JOYSTICK 
OR CURSOR KEYS TO MOVE 
YOUR LASER SIGHT (+> ” 

540 PRINT s PRINT "PRESS FIRE BUTTON, 
RETURN KEY OR SPACECSPACE 2] BAR 
TO FIRE." 

550 PRINT s PRINT "HIT ANY KEY TO 
START" 

560 GET Q$s IF Q$=" " THEN 560 
570 RETURN 


Wallbangers 


Wallbangers 

It’s you against the computer as you both try to trap each other by building electrified walls. If 
you run into the computer’s wall or the screen border, you get electrocuted, and vice-versa. 

Use a joystick to move up, down, left or right. The cursor keys will work too, but the game as 
written is really too fast for them. Good luck! 


Alteration— Change the symbols for the walls 
by changing 42 to 81 in line 340 and 250 to 
160 in line 410. 


100 REM WALLBANGERS 

110 POKE 53281,0s PRINT " CCLR3 CWHITE1 " 
120 PRINT "YOU WILL TRY TO BUILD 
AN ELECTRIFIED” 

130 PRINT "WALL AROUND ME. <*> " 

140 PRINT "I WILL TRY TO DO THE SAME 
TO YOU." 

150 PRINT "YOU CANNOT CROSS A WALL 

WITHOUT GETTING ZAPPED.": PRINT 
160 PRINT "USE JOYSTICK OR CURSOR 
KEYS TO CHANGE C SPACE 41 
DIRECTION." 

170 D(0)=-40:D(1)=-1:D(2)=1:D(3)=40 
180 PRINT s PRINT "HIT ANY KEY TO 
START. " 

190 GET Q$: IF Q$*"" THEN 190 
200 PRINT "CCLR3" s FOR X =55296 TO 
56295: POKE X,l: NEXT X 
210 FOR X=1024 TO 1063: POKE X,160 
: POKE X+960,160: NEXT X 
220 FOR X=1064 TO 1944 STEP 40 
: POKE X, 160: POKE X+39,160 
: NEXT X 

230 L= 1 924 : D=-40 : EL= 1 1 24 : ED=4 : S=54272 
:N=100 

240 FOR X=S TO S+24: POKE X,0: NEXT 

250 POKE S+24, 15 

260 POKE S+l , 19: POKE S+4,29 

: POKE S+5,19: POKE S+15,18 
: POKE S+24, 15 

270 K= PEEK (197) :J= PEEK (653) 

280 JY= PEEK (56321) :FI*JY AND 16 
: JY=15-(JY AND 15) 

290 IF JY=1 OR (K=7 AND J»l> THEN 
D=— 40 

300 IF JY=2 OR (K=7 AND J*0) THEN D=40 

310 IF JY=4 OR (K=2 AND J*l) THEN D—l 

320 IF JY»8 OR (K=2 AND J*0) THEN D=1 

330 IF PEEK (L+D) < >32 THEN 450 

340 L=L+D: POKE L,42 
350 IF RND (2) >.95 THEN ED» INT ( RND 
(3) *4) 

360 POKE S+24 , 0 

370 IF PEEK (EL+D (ED) ) =32 THEN 410 
380 FOR X=0 TO 3: IF PEEK 
(EL+D (X)) *32 THEN ED*X 
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NEXT X 

IF PEEK (EL+D (ED) ) < >32 THEN 420 
EL=EL+D (ED) : POKE EL, 250: GOTO 260 
PRINT "CHOMED"; TAB< 17) "GOT 
ME!": FOR T*1 TO 2000: NEXT T 
PRINT "CCLR3": PRINT 
: PRINT TAB ( 15) "YOU GOT ME" 

: PRINT 
GOTO 470 

POKE 53280,2: PRINT "CH0ME3"; 

TAB < 13) "YOU GOT ZAPPED!" 

: FOR T*1 TO 2000: NEXT T 
PRINT "CCLRI": PRINT 
: PRINT TAB< 13) "YOU GOT ZAPPED!" 

: PRINT : POKE 53280,6 

POKE 198,0; INPUT "PLAY AGAIN" ;Q$ 

IF LEFTS <Q$,1)*"Y" THEN 110 





Rear Gunner 


Rear Gunner 

The computer shows you the view out the tail window of a Star Fighter traveling through space. 
From this vantage point, you will see enemy ships (Y and + ), and members of your own squadron 
(U, V, W and X). You want to fire at and destroy the dangerous intruders, but be careful not to 
shoot at your allies! 

Use the space bar to fire as soon as an asteroid or enemy ship appears. Your timing must be very 
good. You score 20 points if you hit an enemy. You lose 20 points if you destroy a friendly ship. You 
have two minutes to play. 


Alteration— Change the penalty for hitting a 
friend to 30 by changing the value of SR in line 
290 to SR=SR-30. 


100 REM REAR GUNNER 
110 DIM TUI) :HI=0;S0=54272 
120 PRINT " CCLR3YQU ARE ABOUT TO 
TAKE YOUR PLACE IN THE 
TAILGUNNER POSITION." 

130 PRINT "SHOOT DOWN THE ENEMY 
Y OR + FOR POINTS. AVOID 
SHOOTING DOWN MEMBERS" 

140 PRINT "OF YOUR OWN SIDE 
s U V W X. YOU LOSE" 

150 PRINT "POINTS FOR HITTING YOUR 
OWN FIGHTERS." 

160 PRINT s PRINT "HIT ANY KEY TO 
START.": POKE 198,0 
170 GET Q$: IF Q$*"" THEN 170 
180 POKE 53280,6: POKE 53281,0:SR=0 
190 PRINT "CCLRI": FOR X=55296 TO 
56295: POKE X,l: NEXT 
200 FOR X=1 104 TO 2023: IF RND (8X.1 
THEN POKE X ,46 

210 NEXT X: FOR X=1064 TO 1391 STEP 
41: POKE X,77: NEXT 
220 FOR X=1 103 TO 1392 STEP 39 
: POKE X,78: NEXT 
: FOR X=1392 TO 1415: POKE X,99 
: POKE X +280, 100 

230 NEXT : FOR X=1391 TO 1691 STEP 40 
: POKE X , 103: POKE X+25,101 
: NEXT 

240 FOR X=1984 TO 1689 STEP -39 
: POKE X,78: NEXT 
: FOR X=2023 TO 1716 STEP -41 
: POKE X,77: NEXT 

250 FP=1523: FOR X=0 TO 4:T(X)=X+21 
: NEXT :T (5) =43: FOR X=6 TO 11 
:T <X) =32: NEXT 
260 T I $=*"000000" 

270 T= INT < RND (8) *12) 

: POKE FP,T <T) 

280 REM 

290 IF PEEK (197) =60 AND PEEK (FPX25 
THEN SR=SR-20: GOSUB 400 
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Rear Gunner 


Alteration— To change points scored when 
hitting an enemy to 35, change the value of SR 
in line 300 to SR=SR+35. 


Alteration— To make the game last for three 
minutes, change Tl in line 330 to IF 

Tl> 10800 THEN 360. 


300 IF PEEK (197) =60 AND < PEEK 
( FP ) =25 OR PEEK (FP)=43> THEN 
SR=SR+20: GOSUB 400 
310 PRINT " EH0ME3 " TAB ( 8> " EYEL3SCQRE 
" STR$ (SR) +" ESPACE 4ITIME 
” MID$ (TI$,4,1)" 
s'* RIGHTS (TI$,2)+" ” 

320 IF PEEK (197)060 OR PEEK (FP)=32 
THEN POKE SO+24,0 
330 IF T I >7200 THEN 360 
340 IF RND (8) >.9 THEN 270 
350 GOTO 290 

360 PRINT "ECLR3EWHITE3EDOWN 71 
ESPACE 103***GAME OVER***" 

: IF SR>HI THEN HI=SR 
370 PRINT : PRINT "SCORE* "SR 
s PRINT "HIGH -"HI 
380 FOR X*1 TO 2000s NEXT X 
390 GOTO 160 

400 FOR X-SO TO S0+23s POKE X,0 
s NEXT s POKE 50+14,6 
s POKE 50+18, 16s POKE SO+3,1 
410 POKE SO+24,143: POKE S0+6,240 
s POKE SQ+4 , 65 s FR=5389 
s FOR T-0 TO 2 

420 FQ*FR+144sHF* INT (FQ/256) 
s LF -FQ-HF *256 s POKE S0+0,LF 
s POKE S0+ 1 , HF 
430 NEXT Ts RETURN 




Le Mans 


LeMans 

Get your helmet and racing gloves ready! You are about to negotiate the challenging track at Le 
Mans. In this computer simulation, you use a joystick or < and > keys to steer. Avoid other cars, 
debris and running off the road. 


Alteration— Make the track wider by adding 
more # symbols to string variable R$ in line 
130 . 


100 REM LE MANS 

110 POKE 52,48s POKE 56,48: CLR 

120 GOTO 410 

1 30 R$* " C MED . GRAY 3 ######### " : R* 1 6 
:W* LEN <R$):A*5 
140 PRINT "CCLR3": POKE 53281,0 
:L*1884 

150 FOR 1*1 TO 23s PRINT TAB< R)R$ 
s NEXT 

160 5*54272 s FOR N*S TO S+24 
s POKE N,0: NEXT 
170 POKE S+5,65: POKE S+6,65 
s POKE S+24, 15s POKE S+1,1 
s POKE S,95: POKE S+4,129 
180 K* RND <9): IF K<.3 AND R>1 THEN 
R*R-1 

190 IF K>.7 AND R<38-W THEN R*R+1 




Le Mans 


Programming Note— Line 210 is a special trick 
that makes the screen display scroll backward. 


Alteration— To decrease the amount of traffic, 
change M/500 in line 250 to M/1 OOO. 


200 PRINT " C HOME 3 C DOWN 23" TAB< R)R$ 
210 PRINT " C HOME 3 C DOWN 3 C LEFT 3 C I NST 3 " 
s POKE 218,156 

220 MI* INT (M/10) /10s IF MI>HS THEN 
HS*MI 

230 PRINT " CHQME3CWHITE3MILES 

s'* STR$ (MI ) +" CSPACE 23":M*M+1 
240 IF RND (8XM/3000 THEN PRINT " 

C HOME 3 C DOWN 33" TAB ( R+ RND 
(9) *A+1 ) " CMED. GRAY3&" 

250 IF RND (8XM/500 THEN PRINT " 

C HOME 3 C DOWN 33" TAB ( R+ RND 
(9) *A+1 ) " CMED. GRAY3*/." 

260 POKE L+40,35s POKE L+40+54272, 12 
sJY* PEEK (56321) s JY*15-(JY AND 
15) 

270 IF PEEK (197) *47 OR (JY<7 AND 
JY>3) THEN L*L— 1 

280 IF PEEK (197) *44 OR JY>7 THEN 
L*L+1 

290 IF PEEK (LX >35 AND PEEK (LX >36 
THEN 310 

300 POKE L,36: POKE L+54272,1 
s SOTO 180 

310 POKE L,35s POKE L+54272,2 
320 S*54272s FOR N*S TO 8+24 
s POKE N,Os NEXT 
330 POKE S+5,25: POKE S+6,25 
s POKE S+24,15 
340 POKE S+l ,5: POKE S,235 
s POKE S+4,129 

350 PRINT : PRINT " C HOME 3 C DOWN 23 

C WH I TE 3 C SPACE 1 1 3 ******CRASH**** 
**" 

360 PRINT : PRINT “HIGH: "HS: PRINT 
s FOR T*0 TO 999: NEXT T 
s POKE S+24,0 

370 PRINT “CSPACE 83HIT ANY KEY 
TO RESTART": POKE 198,0 
380 GET Q$: IF 0$*"“ THEN 380 
390 M*0: GOTO 130 
400 £ND 

410 PRINT " CCLR3 CWHITE3 " : PRINT "YOU 
ARE ABOUT TO DRIVE AT LE MANS." 

: PRINT 

420 PRINT “USE < TO STEER LEFT AND 
> TO STEER CSPACE 6 3 RIGHT OR 
USE JOYSTICK." 

430 PRINT : PRINT "AVOID OTHER CARS 
AND DEBRIS.": PRINT 
440 PRINT "PLEASE WAIT FOR ME TO 
SET UP." 

MORE -* 
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Le Mans 


Programming Note— Lines 480 to 520 create a 
special set of graphic characters for this game. 


450 POKE 56334, PEEK (56334) AND 254 
: POKE 1, PEEK (1) AND 251 
460 0=12288: FOR 1=0 TO 511 

: POKE I+C, PEEK (1+53248) 

: NEXT I: POKE 1, PEEK (1) OR 4 
470 POKE 56334, PEEK (56334) OR 1 
s FOR T=1 TO 1000: NEXT 
480 FOR 1=280 TO 312: READ J 
: POKE I+C, J: NEXT I 
490 HS=0: POKE 53272, ( PEEK (53272) 
AND 240) +12 
500 GOTO 130 

510 DATA 255,255,255,255,255,255,255, 
255,66,0,66,195,195,66,0,66 
520 DATA 189,129,165,231,231,165,129, 
189,239,215,85,170,85,171,247, 
239,215 
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Moon Lander 


Moon Lander 

You must try to land your ship safely on the moon. Control the amount of thrust by pressing the 
number keys. The higher the thrust, the greater the deceleration and fuel use. If you run out of fuel, 
the engine won’t work and the ship crashes. 

To land safely, you must reach zero altitude at a rate between —5 and 5 meters per second. 

100 REM MOON LANDER 
110 GOSUB 490 

120 PRINT " C HOME 3 CYEL3 ALTITUDE 
STR$ < INT <A+.5>>+" ", 

"METERS" 

130 PRINT "VELOCITY*" STR$ ( INT 

( V+ . 5 ) ) + " C SPACE 23"," METERS/SEC " 
140 PRINT " FUEL C SPACE 43 

*" STR$ < INT (F+.5) )+" " , "KG" 

150 PRINT " THRUST C SPACE 23 

s" STR$ ( INT <T*10+.5> >+"*/. 

C SPACE 23" 

160 GET T$: IF T$<>"" THEN T= VAL 
(T$> 

170 IF F<=0 THEN F=0:T=0 
ISO IF T$=" " THEN T*10 
190 DV=V-G+ (T*20000) / (M+F) s F=F~T 
200 A=A+(V+DV)/2:V=DV 

MORE- 
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210 PRINT F$;s FOR X=1 TO 8 

: PRINT TAB ( 17)"CSPACE 33" 

: NEXT X 

220 IF T>0 THEN PRINT F$" CYEL3 +++" 

230 IF T>1 THEN PRINT F$" C DOWN 3 CRED3+ 
CYEL3+CRED3+" 

240 IF T>2 THEN PRINT F$"[DOWN 23 
CRED]+++ M 

250 IF T>3THEN PRINT F$"CDOWN 33 
CRED3+++" 

260 IF T>4 THEN PRINT F$"CDOWN 43 
CRED3+++" 

270 IF T>5 THEN PRINT F$"CDOWN 53 
CRED3+++" 

280 IF T>6 THEN PRINT F$"CDOWN 63 
CRED3+++" 

290 IF T>7 THEN PRINT F$"CDOWN 73 
CRED3+++” 

300 IF A >5 THEN 120 
310 V* ABS (V) : IF V<10 THEN 410 
320 POKE N-1,2: POKE N,7: PRINT "CCLR3 
CWHITE3CD0WN 10 3 C SPACE 133 
***CRASH***" 

330 FOR LO*SO TO 80+24 s POKE L0,0 
s NEXT 

340 POKE 80+5, 15s POKE SO+6,15 
s POKE SQ+24,15 
350 POKE SO+1 , 1 : POKE 80,235 

s POKE SQ+4,129: POKE SO+4,128 
360 FOR X*1 TO 99: IF ( PEEK <N) AND 
15) =7 THEN POKE N,2: GOTO 380 
370 POKE N,7 

380 FOR T*1 TO 44s NEXT T,X 
390 FOR T«1 TO 2000s NEXT 
s POKE 198,0 

400 POKE N,0: POKE N-1,6 

410 PRINT " C HOME 3 C DOWN 63CWHITE3" 

420 IF V<=5 THEN PRINT "PERFECT 
LANDING!" 

430 IF V>5 AND V<*10 THEN PRINT "HARD 
LANDING" 

440 IF V>10 THEN PRINT "CRASH 
LANDING" 

450 IF VMS THEN PRINT "NO 
SURVIVORS'." 

460 PRINT s PRINT s PRINT 
s INPUT "PLAY AGAIN" ;Q* 

470 IF LEFTS <Q$,1)*"Y" THEN 110 
480 END 

490 S0*54272:N=532B1 

500 POKE N,0: PRINT " CCLR3 CWHITE3 " 

510 PRINT TAB( 15) " CRVS0N3M00N LANDER 
C.RVS0FF3" : PRINT s PRINT 



Moon Lander 


Alteration— Try changing the values for the 
following variables in line 720: A is starting 
altitude; M is mass of spaceship without fuel; F 
is amount of fuel; G is gravity, which affects 
the rate of fall. 


520 PRINT "TRY TO LAND YOUR SHIP 
FIVE METERS PER" 

530 PRINT "SECOND OR LESS.": PRINT 
540 PRINT "PRESS KEYS 0-9 TO SET 
THRUST. " 

550 PRINT "PRESS SPACE BAR FOR 
MAXIMUM": PRINT "THRUST." 

560 PRINT : PRINT "HIT ANY KEY TO 
START. " 

570 GET QS: IF QS*"" THEN 570 
580 PS* " C HOME 3 C DOWN 53 " : FS*PS+" CDOWN 103 
CRIGHT 173" 

590 PRINT "CCLR3" 

600 PRINT PS TAB< 17) " HWUI « 

610 PRINT TAB< 14)" C RVSON 3 C POUND 3 
C SPACE 53*CRVSOFF3" 

620 PRINT TAB < 14)" [RVSON 3 *ERVSQFF3 
[RVSON 3 [RVSOFF 3 E RVSON 3 [POUND 3 


630 PRINT TAB< 14)" CRVS0N3 [SPACE 73" 

640 PRINT TAB ( 14)" [RVSON 3 C SPACE 33 
[RVSOFF 3 E RVSON 3 C SPACE 33" 

650 PRINT TAB < 14)" *E RVSON 3 [SPACE 53 
E RVSOFF 3 E POUND 3 " 

660 PRINT TAB ( 14) " [RVSON 3 [SPACE 93" 

670 PRINT TAB ( 1 4 ) " E RVSON 3 E SPACE 33 
USA [ SPACE 33" 

630 PRINT TAB ( 13) " C RVSON 3b C RVSOFF 3 
iu C RVSON 3 C SPACE 3 3 C RVSOFF 3 yd 

b" 

690 PRINT TAB < 12) " CRVSON3bCRVSOFF3iu 
C SPACE 2 3 C RVSON 3 C POUND 3 *C RVSOFF 3 
C SPACE 23uib" 

700 PRINT TAB < 1 1 ) " CRVSON3bCRVSOFF3 
C SPACE 133b" 

710 PRINT TAB ( 10) "cC RVSON 3 it RVSOFF 3 
C SPACE 1 3 3 C RVSON 3 i^C RVSOFF 3 v " 

720 A*20000 : M*3000 : F*2000 : G* 1 0 : V*0 
: T=0 

730 RETURN 
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Gambler 


Gambler 

Play the one-armed bandit at the computer casino. The computer calculates payoff based on the 
amount bet— nickels, quarters or dollars. Jackpots are awarded for three of a kind. The computer 
plays until you’ve won $100 or lost everything. To quit early, press the RUN/STOP key. 


100 REM GAMBLER 
110 POKE 53281,1 
120 D$= " C HOME 3 C DOWN 53" 

sB$=" CRIGHT 173" :H$=B$+" [RIGHT 113 


Alteration— Sound effects are due to lines 160, 
560 and 770. Alter the sound by changing 
N* 5 in line 560 to N* any number from 1 to 
10 . 


Alteration— Change the appearance of the slot 
machine by altering graphics and color symbols 
in lines 210-330. 


130 P$=D#+ " C DOWN 63" 

140 R$< 1 ) =P$+B$s R$ (2) =R$ ( 1 ) +"CRIGHT 33 
" sRsfc (3) =R$ <2) +" [RIGHT 33" 

150 Kf < 1 ) = " A" s K$ (2) ="B" : K$ (3) = "C" 

160 FOR X=i TO 6s READ S(X)s NEXT 
170 FOR X=1 TO 6s POKE S<X),Os NEXT 
180 D=10 

190 PRINT "CCLR3CSPACE 43 CBLK 3 WELCOME 
TO THE MICROCHIP CASINO!" 
s PRINT 

200 PRINT s PRINT 
210 PRINT TAB ( 15) " CBLK3 CRVSON3 
C SPACE 103CRVS0FF3" 

220 PRINT TAB ( 13) " CBLK3 < CRVSON3 
[SPACE 123 CRVSOFF3 ) 

230 PRINT TAB ( 13)"CRVSON3 CRED3 bbbbbb 
bbbbbb CBLK3 CRVSOFF3" 

240 PRINT TAB ( 13)"CRVSON3 CRED3bbb 
CBLK3BANDITCRED3bbbCBLK3 CRVS0FF3 

II 


250 PRINT TAB ( 13)"CRVSQN3 CRED3 bbbbbb 
bbbbbb [BLK 3 CRVS0FF3" 

260 PRINT TAB < 13)"CRVSGN3 CRED3 bbbbbb 
bbbbbb CBLK 3 CRVS0FF3" 

270 PRINT TAB C 13)"CRVS0N3 CRED3b 
CBLU3 [SPACE 103 CRED3bCBLK3 
CRVS0FF3" 

280 PRINT TAB < 13)"CRVSaN3 CRED3b 
CBLU3 CWHITE3 [SPACE 23CBLU3 
CWHITE3 [SPACE 23CBLU3 CWHITE3 
[SPACE 23CBLU3 CRED 3b CBLK 3 [SPACE 33 

II 

290 PRINT TAB( 13)"CRVSON3 CRED3b 
CBLU3 [SPACE 103CRED3bCBLK3 " 

300 PRINT TAB< 13)"CRVSON3 CRED3bbbbbb 
bbbbbb CBLK 3 " 

310 PRINT TAB( 13)"CRVS0N3 CRED3 bbbbbb 
bbbbbb CBLK 3 " 

320 PRINT TAB ( 13)"CRVSON3 CRED3bbbbbb 
bbbbbb CBLK 3 " 
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Gambler 



330 PRINT TAB ( 1 2 ) " [ R VSON 3 [ SPACE 23 
[ RED 3 bbbbbbbbbbbb C BLK 3 [ SPACE 23" 
340 PRINT TAB< 1 1 )" [R VSON 3 [SPACE 1S3" 
350 PRINT : PRINT TAB ( 14) "CRVS0N3F-1 
CRVS0FF3 NICKEL” s PRINT 
: PRINT TAB< 14) "CRVS0N3F-3 
CRVS0FF3 QUARTER” 

360 PRINT s PRINT TAB< 14) " CRVSON3F-5 
ERVS0FF3 DOLLAR" 

370 PRINT D$;H$" CRVS0N3 ERVS0FF3k" 
s PRINT H# “ [ R VSON 3 k E SPACE 23” 

380 FOR X=1 TO 4s PRINT H$” CRVS0N3k” 
: NEXT X 

390 PRINT H$" [RVS0N3 k” 

400 FOR X*1 TO 3s PRINT R$<X) "CRVS0N3 
CWHITE3 EBLK3” s NEXT X 
410 PRINT "[HOME 3 [DOWN 23 [SPACE 83 YOU 
HAVE $” STR$ <D) “ LEFT. C SPACE 23 

II 


420 POKE 198,0 

430 GET Q$s IF Q$*"" THEN 430 
440 B=Os IF Q#*”[fl3" THEN B=.05 
450 IF Q$="E-F33” THEN B*.25 
460 IF Q$*"Ef53" THEN B*1 
470 IF B*0 OR B>D THEN 430 
480 D*D-B 

490 PRINT D$;H#”E SPACE 33" 

500 FOR X-l TO 5s PRINT H$" [SPACE 33" 


s NEXT X 


MORE- 


29 



Gambler 


Alteration— Increase jackpot payoffby 
changing 50 in line 610 to a larger number. 


510 PRINT PS;H*"CRVSON3 k" 

520 FOR X=1 TO 3: PRINT H$" CRVS0N3k" 
s NEXT X 

530 PRINT H# " C RVS0N3 k C SPACE 23" 

540 PRINT H$" CRVSQN3 CRVS0FF3k" 

550 0=0 s POKE 54296,15 
560 N= INT ( RND <4>*20)+l 

s FOR X*1 TO 6s POKE S<X>,N*5 
: NEXT 

570 IF N=20 AND RND (2) <.7 THEN C=C+1 
:T$(C)=K*< INT < RND <5>*3>+l) 

: PRINT R$<C);T*<C) 

580 FOR X*1 TO 6: POKE S(X),Qs NEXT 

590 IF C<3 THEN 560 

600 IF T$(l)OT$<2) OR T#(l)OT$<3) 

OR T$(3>OT$<2) THEN 690 
610 D=D+B* INT ( RND (8>*50>+l 
620 FOR Y=1 TO 7 

630 PRINT " C HOME 3 C DOWN 33CSPACE 293" 
640 FOR X*1 TO 6s POKE 8<X),20s NEXT 
650 PRINT " CHQME3 CDOWN 33CSPACE 153 
CRVSON3CRED3 JACKPOT! CBLK3 
CRVSQFF3" 

660 FOR T=1 TO 400s NEXT T 
670 FOR X=1 TO 6s POKE S(X),0 
s NEXT X , Y 

680 PRINT "C HOME 3 CDOWN 33CSPACE 333" 
690 FOR T*0 TO 999s NEXT T 
700 PRINT P#} H#" C SPACE 33" 

710 FOR X*1 TO 5s PRINT H*"CSPACE 33" 
s NEXT X 

720 IF D>100 THEN PRINT "CCLR3 THE 
'BANDIT' IS OUT OF MONEY!" 
s GOTO 750 
730 IF D>0 THEN 370 
740 PRINT " CCLR3 " s PRINT "YOU ARE 
BROKE ! " 

750 PRINT : PRINT s INPUT "PLAY 
AGAIN" ;Q$ 

760 IF LEFT# <Q#,1)*"Y" THEN 180 
770 DATA 54272,54273,54279,54280, 
54286,54287 
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Orion 


Orion 

This is your chance to be a warrior, defending your cities by shooting down invading drones. 
You have three missile silos. Fire your interceptor missiles at the incoming drones by pressing keys 
1, 2 or 3. Once you launch a missile, you can’t launch another from that silo until the missile hits a 
drone or reaches maximum altitude. You lose when all of your buildings are destroyed. 


100 REM ORION 
110 SOSUB 470 

120 PRINT "CCLRl"! POKE 53280,0 

s POKE 53281,6s FOR X-55296 TO 
56176: POKE X,15s NEXT X 
130 FOR X*56176 TO 56295: POKE X,7 
: NEXT X 

140 FOR X*1904 TO 2023: POKE X,160 
: NEXT :Z=. 1:DD*0:SR=8: V*0 

MORE -* 
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Alteration— Change the number and shapes of 
buildings by changing line 150. 



150 PRINT A$; "[BLK3 [SPACE 33[RVSON3c 
[ RVSOFF 3 [ SPACE 63[RVSON3vv 
[ RVSOFF 3 [ SPACE 23ik[SPACE 43 
[ RVSQN 3 kv [ RVSOFF 3 a [ RVSON 3 v 
[RVSOFF 3 [SPACE 43d[RVSON3v 
[ RVSOFF 3 ik" 

160 FOR X=1 TO 3: POKE BSCX>,30 

:BL(X)=BS<X) :M(X)=0:F (X)=0s NEXT 
170 Z=Z+.001 

180 FOR X=1 TO 3: IF M<X)=1 THEN 210 
190 J < X ) = 1 344+ INT < RND (8) *240) 

: IF RND <8)>Z THEN 250 
200 POKE J (X) -1 ,Ms POKE J(X),M 

: POKE J(X)+1,M:M(X)=1:D(X)=41 
s IF RND <S)>.5 THEN D(X)=39 
210 IF PEEK (J(X))*M AND PEEK 

( J (X) +1 ) =M AND PEEK (J(X)-1)=M 
THEN 230 

220 POKE J (X) -1 ,32: POKE J(X),32 

: POKE J (X) +1 ,32s POKE J(X)-1,32 
sM(X)=0: SOTO 250 
230 POKE J(X) -1,32s POKE J(X),32 

s POKE J(X)+1,32:J(X)=J(X)+D<X) 
s IF J <X) >1903 THEN 370 
240 POKE J (X) ,Ms POKE J<X>+1,M 
s POKE J (X) -1 ,M 
250 IF F (X) =1 THEN 280 
260 GET F$sA= VAL <F$> s IF A<1 OR A>3 
THEN 280 
270 F (A) *1 

280 IF PEEK <BL (X) ) < >30 AND 
(BL (X) ) < 1864 THEN 390 
290 POKE BL (X) ,32: IF F<X)=1 THEN 
BL(X)*BL(X)-40 
300 IF BL (X) >1304 THEN 320 
310 BL(X)*BS(X) sF(X)*0 
320 POKE BL (X) ,30: NEXT X 
330 SR=0: FOR Y=1864 TO 1902 

: IF PEEK <Y) >90 THEN SR=SR+i 
340 NEXT Y: PRINT "[HOME 31 WHITE 3 SCORE 
[SPACE 43 : "DDs PRINT "BUILDINGS 
:" STR$ (SR)+" " 

350 IF SR<1 THEN 430 
360 GOTO 170 

370 30=54272: FOR Z=SO TO SO+24 

: POKE Z,0: NEXT Zs POKE SO+5,15 
: POKE SO+6,15: POKE SO+24, 15 
380 POKE S0+l,3: POKE 80,245 

: POKE S0+4,129:M(X)=0: GOTO 250 
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390 50*54272: FOR Z=SO TO SO+24 

: POKE Z,0: NEXT Z: POKE SO+5,15 
: POKE 50+6,15: POKE SO+24, 15 
400 POKE 50+1,5: POKE SO, 235 

: POKE SO+4,129: FOR Y=0 TO 8 
: POKE BL(X)+EL(Y) ,EC(Y) 

410 POKE 54272+BL (X) +EL (Y) ,7: NEXT Y 
: FOR T*1 TO 50: NEXT T : DD=DD+SR 
420 FOR Y=0 TO 8: POKE BL ( X) +EL <Y) ,32 
: POKE 54272+BL (X) +EL (Y) ,1 
: NEXT Y: GOTO 310 
430 PRINT "[HOME 3 [DOWN 73 [SPACE 93 
****CITY DESTROYED****”: PRINT 
: PRINT 

440 FOR T*1 TO 2000: NEXT T 

: POKE 198,0: PRINT "[SPACE 93HIT 
ANY KEY TO RESTART" 

450 GET Q$: IF Q$="" THEN 450 

460 GOTO 120 

470 A$= " [ HOME 3 [ DOWN 213” 

480 FOR X=0 TQ 8: READ EL(X),EC<X) 

: NEXT 

490 BS<1)=1913:BS (2) = 1922: BS <3) *1931 
:M=90: 1=30 

500 PRINT " [ CLR 3 " TAB ( 17) ; "ORION" 

: PRINT : PRINT "[SPACE 2 3 DEFEND 
YOUR CITY WITH INTERCEPTORS" 

510 PRINT : PRINT "[SPACE 2 3 PRESS 
KEYS 1-3 TO LAUNCH MISSILES." 

: PRINT 

520 PRINT "[SPACE 93HIT ANY KEY 
TO START" 

530 GET Q$: IF Q$="" THEN 530 
540 RETURN 

550 DATA -41,85,-40,66,-39,73,-1,67,0,9 
1,67,39,74,40,66,41,75 
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Berserkotron 

You’re applying for a job at a computer-game factory, but get lost in a room of berserk robots. 
Escaping through one of three exits is your only hope of survival. 

This is made difficult because the robots chase you. Though berserk, they aren’t stupid. Lines 
210-270 give the robots the ability to track your position. However, you can use the barriers in the 
room to block a robot’s progress. The game ends if one catches you. 


100 REM BERSERKOTRON 
110 GOSUB 510 

120 JY= PEEK <56321 ):JY=15-<JY AND 15) 
;K« PEEK <197) sJ* PEEK <653):AL=L 
130 POKE L,32: IF JY-1 OR JY=5 OR 
JY*9 OR <K-7 AND J=l) THEN 
AL-AL-40 

140 IF JY-2 OR JY=6 OR JY=10 OR <K=7 
AND J*0) THEN AL*AL+40 
150 IF < JY>3 AND JY<7) OR <K*2 AND 
J*l) THEN AL-AL-1 
160 IF JY>7 OR <K»2 AND J*0) THEN 
AL-AL+1 

170 IF PEEK <AL) < >160 THEN L*AL 
180 IF PEEK <L)*R THEN 300 
190 IF PEEK <L)-46 THEN 440 
200 POKE L,I:LY» INT < <L-S) /40) 

• I Vael — Q—L 

210 FOR X=1 TO 3:M=R<X): POKE M,32 
220 RY= INT <<M-S)/40):RX«M-S-RY*40 
230 IF RX<LX AND < PEEK <M+1)=32 OR 
PEEK <M+1)*I) THEN M=M+1 
240 IF RX>LX AND < PEEK <M-1)=32 OR 
PEEK <M-1)»I> THEN M=M-1 
250 IF RY>LY AND < PEEK <M-40)-32 OR 
PEEK <M-40)«I) THEN M-M-40 
260 IF RY<LY AND < PEEK <M+40>*32 OR 
PEEK <M+40)=I> THEN M*M+40 
270 R<X)*Ms POKE M,R 
280 IF M=L THEN 300 
290 NEXT Xs GOTO 120 
300 REM CAUGHT 
310 S0*54272s FOR X*0 TO 24 
s POKE SO+X,Oi NEXT X 
320 POKE SO+14,5: POKE SO+18,16 

* POKE S0+3,l: POKE SO+24,143 
330 POKE S0+6,240: POKE SO+4,65 
340 POKE 53280,2: FI *5389 

: FOR X-0 TO 119:F*Fl+ PEEK 
<80+27) *3. 5 

350 H« INT <F/256):L*F-H*256 
360 IF INT <X/10)/2* INT < INT 
<X/10)/2) THEN POKE 53280,2 
: POKE 53281,2 


34 




Berserkotron 



370 IF INT <X/10)/2<> INT ( INT 
(X/10>/2) THEN POKE 53280,14 
s POKE 53281,11 

380 POKE SO,L: POKE 80+1, Hs NEXT X 

390 POKE S0+24,0 

400 FOR X=1 TO 2000s NEXT X 

410 PRINT " CCLR3" s PRINT : PRINT 

420 PRINT TAB< 12) "YOU WERE CAUSHT!" 

s PRINT s PRINT s PRINT 
430 GOTO 480 
440 REM SAFE 

450 FOR X*1 TO 2000s NEXT X 
460 PRINT " CCLR3 " s PRINT s PRINT 
470 PRINT TAB < 14) "YOU MADE IT!" 
s PRINT s PRINT 

480 POKE 198,0s PRINT TAB < 14) "PLAY 
AGAIN" ;s INPUT Q$ 

490 IF LEFTS <Q$,1)*"Y" THEN 110 
500 END 

510 PRINT " CCLR1 CBLK3 " s POKE 53281,11 
520 PRINT TAB< 14)}"CRVSON3 
BESERKOTRON" s PRINT 
530 PRINT "ON THE WAY TO INTERVIEW 
FOR A JOB AS A" 

540 PRINT "COMPUTER GAME TESTER, 

YOU MADE A WRONG TURN..."s PRINT 

MORE-* 
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Alteration— Change the symbols for barriers 
and robots by changing the values of B and R 
respectively in line 710. 

Alteration— Change the number of barriers by 
changing the value of BX in line 720. For 
example, BX-50 would make the game more 
difficult; BX=250 would make the game 
easier. 


550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 


690 

700 

710 

720 

730 

740 


750 

760 

770 


PRINT "YOU HAVE JUST ENTERED 
THE ROBOT ROOM." 

PRINT "YOU ARE NOT WELCOME." 
s PRINT 

PRINT "USE A JOYSTICK OR THE 
CURSOR KEYS TO" 

PRINT "RUN THROUQH THE SIDE OR 
BOTTOM DOORS.": PRINT 
PRINT "ENTER YOUR FIRST INITIAL." 
GET 1$: IF I$=«" THEN 600 
IF ASC ( 1$) <65 OR ASC <I$)>90 
THEN 600 

PRINT "AVOID ROBOTS (CRVSQN3R 
CRVS0FF3) . " : PRINT 
PRINT "YOUR ONE ADVANTAGE IS 
YOU CAN GO THROUGH"; 

PRINT "THE BLACK CIRCLES AND 
THE ROBOTS CANNOT.": PRINT 
PRINT "HIT ANY KEY TO START." 

GET Q$: IF Q$="" THEN 660 
PRINT "ECLR3": PRINT "CBLK3 
CRVSONK SPACE 373" 


FOR X»1 TO 9 
TAB ( 37 > 

: PRINT " ." 

FOR X*1 TO 9 
"; TAB ( 37) 

PRINT " CRVSQN3 E SPACE 
. CRVS0N3 CSPACE 173" 
S*1106:B*81:R*146: I* ASC 


PRINT " CRVS0N3 
"CRVS0N3 ": NEXT 
TAB< 37);"." 
PRINT " CRVS0N3 
"CRVS0N3 ": NEXT 


193CRVSOFF3 


( 1$) -64 


BX=199 

FOR X=55296 TO 56295: POKE X,0 
: NEXT X 

FOR X=0 TO BX: POKE S+40* I NT ( 
RND (8) *19)+ INT < RND (8)*35),B 
: NEXT X 

R(1)*1428:R(2)*1458:R(3)=1764 

:L*S+18 

FOR X*1 TO 3: POKE R(X),R: NEXT X 

: POKE L T I 

RETURN 
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Shell Game 

In this game, the computer will place a ball under one of three boxes. Then it shuffles the boxes 
around the screen. Watch carefully because you’re asked to find the box that has the ball. 


Alteration— You may want to add sound 
effects similar to those used in Gambler while 
the boxes are being shuffled. 


100 REM SHELL SAME 
110 6QSUB 450 

120 PRINT " CCLR3" TAB < 15) "CRVS0N3 
SHELL GAMECRVS0FF3" 

130 FOR X=7 TO 9s FOR Y=1 TO 3 

s PRINT L$<X);S$<Y)s NEXT Y,X 
140 L= INT < RND <8>*3>+l 
150 PRINT L$ (L) ; B$ 

160 PRINT " CBLK] C HOME K DOWN 23HIT 
ANY KEY TO START" 

170 GET Q$s IF THEN 170 

180 PRINT " C HOME 3C DOWN 23 [SPACE 213" 

190 FOR X=7 TO 9s FOR Y=1 TO 3 

s PRINT L$(X);E$<Y)s NEXT Y,X 
200 FOR X=1 TO 3s FOR Y*1 TO 3 

s PRINT L$<X>sS$<Y)s NEXT Y,X 
210 FOR X=1 TO 3sW(X)*ls NEXT XsM*l 
220 FOR K*1 TO 9sC*0s IF W(K)*0 THEN 
290 

230 H= INT ( RND (4) *4) +1 s C*C+1 
* tp rvo tmpm ■jon 

240 N=A(K,H)s IF W<A(K,H))-1 THEN 230 
250 W(K)*OsW(A(K,H) )*1 
260 FOR Y*1 TO 3s PRINT L$<K>;E$<Y> 
s NEXT Y 


MORE-* 
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Alteration— Change the amount of shuffling 
the computer does by altering line 300. For 
example, IF M< 4 THEN 220 decreases 
shuffling; IF M< 1 5 THEN 220 increases 
shuffling. 


i 


270 FOR Y=1 TO 3: PRINT L$<A<K,H)>; 

S$<Y)s NEXT Y 
280 IF L*K THEN L=A(K,H> 

290 NEXT KsM=M+l 
300 IF M<9 THEN 220 
310 IF W<1>=1 AND W (2) *1 AND W(3)=l 
THEN 330 
320 GOTO 220 

330 FOR X*i TO 3s PRINT L$<X> ; "CRVS0N3 
•*; STR* (X) : NEXT X 
340 PRINT " C BLK 3 C HOME 3 C DOWN 230K, 

WHICH BOX IS THE BALL UNDER?" 

350 GET Q$s IF Q$*"" THEN 350 
360 Q* VAL <Q*> : IF Q<1 OR Q>3 THEN 
350 

370 IF Q*L THEN PRINT "YOU GOT IT!" 
s GOTO 390 

380 PRINT "SORRY, IT WAS UNDER #"L 
390 FOR X=1 TO 3: FOR Y*1 TO 3 

s PRINT L*(X) ;E*(Y> s NEXT Y,X 
400 FOR X*4 TO 6s FOR Y*1 TO 3 

s PRINT L*<X>;S$(Y)s NEXT Y,X 
410 PRINT L$<L);B$ 

420 PRINT s INPUT "PLAY AGAIN" ;G$ 

430 IF LEFT* <Q$,1)*"Y" THEN 120 
440 END 

450 POKE 53281,1s PRINT "CCLR3CBLK3" 
460 PRINT "YOU ARE ABOUT TO PLAY 
C RVSON 3 SHELL GAME C RVSOFF 3 . " 

470 PRINT "I WILL PLACE A BALL <£> 
UNDER ONE OF" 

480 PRINT "THREE RED BOXES AND THEN 
SHUFFLE THE" 

490 PRINT "BOXES AROUND. "s PRINT 
500 PRINT "WATCH CAREFULLY AND THEN 
TELL ME WHICHCSPACE 2 3 BOX THE 
BALL IS UNDER." 

510 PRINT s PRINT "HIT ANY KEY TO 
CONTINUE. " 

520 GET Q*s IF Q*“" " THEN 520 
530 S$ ( 1 ) =" CRED3 CRVSQN3 CSPACE 33 
CRVSQFF3 " s E* ( 1 > =" C SPACE 33" 

540 S$<2)«"CDOWN3CRED3CRVSQN3 CSPACE 33 
C RVSOFF 3 " s E* (2) *" CDQWN3 CSPACE 33 " 
550 S*<3>*" CDOWN 23 CRED3CRVSON3 CSPACE 
33 C RVSOFF 3 " s E* <3) *" CDOWN 23 CSPACE 
33" 

560 B**" CBLU3 CD0WN3 CRIGHT3Q," 

570 L* ( 1 ) *" CHQME3 CDOWN 123 f RIGHT 123" 
580 L* <2) “L* < 1 ) +" CRIGHT 63" 

590 L*<3)»L*<2)+" CRIGHT 63" 

600 L* (4) “L* ( 1 ) +" CDOWN 63" 

610 L* (5) “L* <2) +" CDOWN 63" 

620 L* (6) «L* (3) -f 11 CDOWN 63" 
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630 L$<7)=L$<1)+"CUP 63" 

640 L$<B)«L$<2>+"CUF 63" 

650 L$<9>*L$<3)+"CUP 63" 

660 FOR X=1 TO 9: FOR Y=1 TO 4 
s READ A <X , Y) : NEXT Y,X 
670 RETURN 

680 DATA 2, 4, 7, 1,1, 3, 5, 8, 2, 6, 9, 3 
690 DATA 1,4, 5, 4,4, 2, 6, 5, 5, 3, 6,6 
700 DATA 1,7, 8, 7, 7, 2, 9, 8, 8, 9, 3, 9 
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Pirates 

Batten down your hatches and head for the high seas. Can you recover the gold stolen by the 
pirate Bluebeard? You must search for five pirate ships hidden in the waters displayed on the 
screen. When you find a pirate ship, you can either fire on it or board it. In the ensuing battle you 
may lose men and cannons. 

The game ends after five minutes or after you or all five pirate ships are sunk. 


100 REM PIRATES 

110 PRINT " CCLR3 CWHITE3 " : PRINT "AHOY 
THERE MATEY. AND WHAT WOULD 
BE" 

120 INPUT "YOUR NAME NOW";N$: PRINT 
130 PRINT "WELL, WELL, CAPTAIN "N$" 

IT IS. " : PRINT 
140 PRINT "AND I'M CAPTAIN 
BLUEBEARD."! PRINT 
150 PRINT "I HAVE A FLEET OF 5 

FRIGATES HIDDEN INCSPACE 2 3 THESE 
WATERS. CATCH ME IF 
160 PRINT "YOU CAN."! PRINT 

! PRINT "YOUR SHIP IS REPRESENTED 
BY AN 'S'." 

170 PRINT "MY SHIPS ARE REPRESENTED 
BY A 'P'." 

180 PRINT "REEFS ARE REPRESENTED 
BY AN '*'."! PRINT 
190 PRINT "YOUR SHIP HAS A CREW 
OF 200 MEN AND 50" 

200 PRINT "CANNONS."! PRINT 
: PRINT "HIT ANY KEY" 

210 GET Q$i IF Q$*"" THEN 210 
220 PRINT "CCLR3" i PRINT "YOUR 
COMMAND OPTIONS ARE!"! PRINT 
230 PRINT " N * STEER NORTH" 

: PRINT " E * STEER EAST" 

240 PRINT " S * STEER SOUTH" 
i PRINT " W * STEER WEST" 

250 PRINT " F * FIRE CANNONS" 

: PRINT " B * BOARD": PRINT 
260 PRINT "CANNONS WILL FIRE ON 

ALL SHIPS WITHINCSPACE 33TWQ 
SPACES. " 

270 PRINT "TO BOARD A SHIP, IT MUST 
BE ONE SPACE C SPACE 3 1 AWAY. " 

280 PRINT ■ PRINT "YOU HAVE 5 
MINUTES" 

290 PRINT ! PRINT "HIT ANY KEY TO 
START. " 

300 GET Q$: IF Q$=" " THEN 300 
310 LX* INT (40* RND (8)) 

! LY* INT < RND (8) *20) +3! S=1024 
! M*200: C*50s 8*0! K=0 
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Alteration— Change the range at which pirate 
ships are spotted by altering D(X) in line 440. 
For example, IF D(X)> 4 will increase the 
range to four spaces. 


320 FOR X=0 TO 4 

330 PX(X)= INT (40* RND <B) ) 

sPY(X>= INT < RND (8) *20) +3 
sM(X)=100s C (X) =20 

340 IF PX<X)=LX AND PY(X)=LY THEN 330 
350 NEXT Xs PRINT "[CLR3" 

sL=S+LX+40*LY: POKE L,19 
s FOR X=0 TO 24 

360 1= INT ( RND (4) *800) +S+120 
s IF PEEK <1)032 THEN 360 
370 POKE I, 42s NEXT X 
375 FOR X =55296 TO 56295s POKE X,l: 

NEXT X 

380 T I $="000000" 

390 L=S+LX+40*LYs POKE L,19 
400 C$=" "s GET C$ 

410 PRINT "C HOME 3 MEN: " STR$ (M>+" 

[ SPACE 2 3 CANNONS s" STR$ (C)+" 

[SPACE 2 3 GOLDS" STR$ <G)+" [SPACE 23 

II 

420 FOR X=0 TO 4sD(X)= SQR 

( (PX (X) -LX) A 2+ <PY (X) -LY) A 2) 

430 IF C(X)=<0 OR M (X) =<0 THEN 620 
440 IF D ( X ) >6 THEN POKE 

S+PX<X)+PY<X) *40,32 s GOTO 620 
450 POKE S+PX (X) +PY (X) *40, 16 
460 IF D(X) >2.9 THEN 560 
470 IF C$< >”F" THEN 530 
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Alteration— Changing the equation for C(X) 
in line 520 changes the damage done by your 
cannons. For example, 

C(X)=C(X)— INT(RND(7)* .2* C) will do 
less damage. 


Alteration— Changing the equation for G in 
line 610 changes the amount of gold recovered 
from a captured pirate ship. For example, 
G=G+INT(RND(8)* 8000) will increase the 
average amount of gold recovered. 


Alteration— Changing Tl in line 710 to IF 
Tl> 1 0800 THEN 890 decreases the time 
limit to three minutes. 


480 PRINT "[HQME3 [DOWN3FIRING CAPTAIN 
»N$« • •' 

490 FOR CA*1 TO C/5:S0=54272 

s FOR LO=SO TO SO+24: POKE LQ,0 
s NEXT 

500 POKE SO+5,9: POKE SO+6,15 
s POKE SO+24, 15 
510 POKE SQ+1 ,5: POKE SO, 235 

: POKE SO+4,129: FOR TT=1 TO 40 
s NEXT TT,CA 

520 C(X)=C(X)- INT < RND (7)*. 3*0 
:M(X)=M(X)- INT < RND (8>*.2*C> 
530 IF RND (2) >.5 THEN C=C- INT < RND 

(7) *.3*C(X> ) :M=M- INT ( RND 

(8) 1*G ( X) ) 

540 IF C(X)<*0 THEN PRINT "CH0ME3 

[DQWN3PIRATE SHIP SUNKCSPACE 133 " 
s FOR T=1 TO 2000s NEXT T:K=K+1 
550 IF C(X1<*0 THEN PRINT "CH0ME3 
I DOWN 3 [SPACE 193" 

560 IF D(X) >1.5 THEN 620 
570 IF C$="B" THEN PRINT "[HOME 3 
[DOWN 3 BOARDING CAPTAIN "N$" ! " 

580 IF C$="B" THEN M(X)=M(X>- INT 
(RND (7) *. 5*M) 

590 IF M ( X ) >0 THEN M=M- INT ( RND 

(7) *. 1*M<X) ) 

600 IF M <X) <=0 THEN PRINT "CH0ME3 
[D0WN3PIRATE SHIP CAPTURED. 

CSPACE 133"! FOR T=1 TO 4000 
■ NEXT T 

610 IF M(X)<*0 THEN PRINT "C HOME 3 

[DOWN 3 CSPACE 223"!G=G+ INT ( RND 

(8) *5000) !K*K+1 

620 IF C<X)<*0 OR M(XX*0 THEN POKE 
S+PX < X > +PY < X ) *40 , 32 
630 NEXT X: IF K=5 THEN 730 
640 PRINT "[HOME 3 [DOWN 3 [SPACE 313" 

650 IF M<*0 OR C<*0 THEN 790 
660 POKE L,32: IF C$=”N" AND LY>2 
THEN LY=LY-1 

670 IF C$*"S” AND LY<22 THEN LY*LY+1 
680 IF C$*"E” AND LX<40 THEN LX=LX+1 
690 IF C$-"W" AND LX>i THEN LX*LX-1 
700 IF PEEK (S+LX+40*LY) =42 THEN 840 
710 IF TI >18000 THEN 890 
720 GOTO 390 

730 PRINT "ALL PIRATES ELIMINATED" 

740 FOR T=1 TO 3000: NEXT T 
750 PRINT " [CLR3" 

760 PRINT TAB< 10) "ALL PIRATES 
ELIMINATED. " 

770 PRINT s PRINT "YOU GOT"G"GOLD 
PIECES"! PRINT "CAPTAIN "N$". H 
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730 GOTO 940 

790 PRINT "YOU ARE SUNK" 

800 FOR T=1 TO 3000s NEXT T 
BIO PRINT "CCLRI" 

820 PRINT "YOU ARE SUNK CAPTAIN 
"NS". " 

830 GOTO 940 

840 PRINT "YOU RAN AGROUND." 

850 FOR T*1 TO 3000s NEXT T 
860 PRINT "CCLR3" 

870 PRINT "YOU RAN AGROUND CAPTAIN 
"NS". " 

880 GOTO 940 

890 PRINT "TIME HAS EXPIRED" 

900 FOR T*1 TO 3000s NEXT T 
910 PRINT "CCLRI" 

920 PRINT TAB< 14) "TIME HAS EXPIRED." 
930 PRINT s PRINT "YOU GQT"G"GOLD 

PIECES" s PRINT "CAPTAIN "NS"." 
940 POKE 198,0s PRINT 

s PRINT TAB ( 10) "PLAY AGAIN 
(Y/N) 

950 INPUT QS 

960 IF LEFTS <G!S,1)="Y" THEN 310 
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Master Code 

This short program is based on a popular board game. The computer invites you to break a 
secret code. When the four squares appear on the screen, you enter one number of code at a time. 
The number is between 1 and 5. A number may be repeated. 

A correct answer is indicated by an asterisk in that square. You have four tries to break the code. 
You win when you guess all four numbers in the code. 


Alteration— Make the game more difficult by 
changing the 5 in lines 220-250 to a larger 
number. This increases the range of numbers 
that the computer can use in its code. Also, 
indicate the new range by changing the PRINT 
statement in line 170. 


Alteration— Make the game easier by 
increasing the number of tries the user gets. 
For example, changing X in line 290 to FOR 
X=1 TO 5: PRINT L$;X allows the user five 
tries. 


100 REM MASTER CODE 

110 MS* " E HOME 3 C DOWN 53 ” : LS=MS+" CDOWN 33 
CRIGHT 193" 

120 POKE 53281,1s PRINT "CCLR3CBLK3" 
s PRINT TAB ( 14) "MASTER CODE" 
s PRINT : PRINT 

130 PRINT "I AM CATHY CRYPTIC, A 
CYBERNETIC CODEC SPACE 33 
GENERATING PROGRAM." 

140 PRINT "YOU ARE ABOUT TO ATTEMPT 
TO BREAK" 

150 PRINT "MY CODE.": PRINT 
160 PRINT "I WILL GENERATE FOUR 
SQUARES. EACH" 

170 PRINT "SQUARE WILL REPRESENT 
ONE NUMBER: C SPACE 731,2,3,4, 

OR 5.": PRINT 

180 PRINT "YOU WILL HAVE FOUR TRIES 
TO OBTAIN THE C SPACE 2 3 CORRECT 
SEQUENCE.": PRINT 

190 PRINT "NUMBERS MAY BE USED MORE 
THAN ONCE.": PRINT : PRINT "HIT 
ANY KEY TO START." 

200 GET QS: IF QS*"" THEN 200 
210 PRINT "CCLR3": PRINT TAB < 

14) " MASTER C SPACE 2 3 CODE": PRINT 
: PRINT 

220 E* INT ( RND <8)*5)+l 
230 B* INT < RND (8)*5)+l 
240 C= INT < RND <B)*5)+1 
250 D* INT < RND <8>*5)+l 
260 PRINT TAB( 13) "ACSPACE 33BCSPACE 33 
CC SPACE 33D" 

270 PRINT TAB ( 1 3 > " C R VSON 3 C SPACE 23 
C RVSOFF 3 C SPACE 23++CSPACE 23 
CRVS0N3+ C RVSOFF 3 C SPACE 23CRVSQN3 
C SPACE 23CRVSOFF3" 

280 PRINT TAB< 13) "CRVS0N3CSPACE 23 
C RVSOFF 3 C SPACE 23++CSPACE 23 
CRVS0N3+ C RVSOFF 3 C SPACE 23CRVSON3 
±+C RVSOFF 3" 

290 FOR X*1 TO 4: PRINT L$; X 
300 IF W*E THEN 340 

310 PRINT L$: PRINT : PRINT TAB< 13)" 

C SPACE 23 A" ;: INPUT W 
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320 IF W=E THEN PRINT M$; TAB( 13)" 

[ R VSON 3 ** [ RVSOFF 3 " 

: PRINT TAB ( 13) "[RVS0N3** 

[RVSOFF 3" 

330 PRINT L$: PRINT s PRINT TABt 13)" 
[SPACE 73" 

340 IF V-B THEN 380 

350 PRINT L$: PRINT s PRINT TAB< 13)" 
CSPACE 23B"; : INPUT V 
360 IF V* B THEN PRINT TABt 17) " 

[ R VSON 3 ** [ RVSOFF 3 " 

: PRINT TABt 17) " [RVS0N3#* 

C RVSOFF 3 " 

370 PRINT L$i PRINT : PRINT TABt 13)" 
[SPACE 93" 

380 IF Y=C THEN 420 

390 PRINT LSi PRINT : PRINT TABt 13)" 
[SPACE 23C"; s INPUT Y 
400 IF Y*C THEN PRINT M$; TABt 21)" 

[ R VSON 3 ** [ RVSOFF 3 M 
s PRINT TABt 21) "[RVSQN3** 

[RVSOFF 3" 

410 PRINT L$s PRINT : PRINT TABt 13)" 
[SPACE 63" 

420 IF Z=D THEN 460 

430 PRINT L$s PRINT s PRINT TABt 13)" 
[SPACE 23D" ; : INPUT Z 
440 IF Z=D THEN PRINT M$; TABt 25)" 

[ R VSON 3 ** [ RVSOFF 3 " 
s PRINT TABt 25) "[RVSQN3** 

[RVSOFF 3" 

450 PRINT L$: PRINT s PRINT TABt 13)" 
[SPACE 63" 

460 IF W=E AND V=B AND Y=C AND Z=D 
THEN 520 
470 NEXT X 

480 PRINT s PRINT s PRINT TABt 6) "YOU 
DID NOT BREAK THE CODE." 

490 PRINT s PRINT TABt 8) "IT WAS 

• H B £11 Itgil 01 QH MJJ 

500 PRINT : PRINT TABt 7) "HIT ANY 
KEY TO PLAY AGAIN. " 

510 GOTO 200 

520 PRINT s PRINT "[SPACE 43YOU 

BROKE THE CODE IN"X"TRIES ! ! ! " 

530 GOTO 500 
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A Day At The Races 

You’ve gone to the dogs— the dog track that is. You and the computer can choose among four 
dogs racing toward the finish line. 

The program is complete with user-friendly features such as an introduction, a racing program, 
fun graphics and easy restart. It works great as is, but it’s also fun to personalize. 



Alteration — Change the names and 
descriptions of the dogs in lines 270-460 and 
500 to match the names and characteristics of 
family and neighborhood dogs. 


100 REM A DAY AT THE RACES 
110 M=500s POKE 53281,11 
120 0$= “ DSP ACE 53" 

130 C* <1,1>="CBLK3 CSPACE 33CRVSON3vc" 
xC*<l,2)-"NCRVSQN3 CR VSOFF 31 
CRVSQN3 "xC*(l,3>=" CRVSON3c 
CRVSOFF3 CRVSQN3c" 

140 C* <2, 1 ) =" CYEL 3 CSPACE 33f" 

: C* (2,2) ="NCRVSQN3 CRVSQFF32 
CRVSON3 l"sC$<2,3>=" CRVSONlc 
CRVSOFF3 CRVSONlc" 

150 C* (3,1) =" CBRN3 ) b" 

xC$<3,2>=" CRVS0N3 CRVSOFF33 
CRVSON3 i_" : C* (3,3) *" k k" 

160 C* (4, 1 ) *" C WHITE! CSPACE 33CRVSON3 
vc":C$(4,2>=" (+4+" 

: C$ (4,3) =" C RVSQN 3 c C R VSOFF 3 
CRVSQN3cCRVSOFF3 " 

170 PRINT "CCLR3C WHITE!" 

: PRINT "WELCOME TO UNCLE LOUIS' 
DOGTRACK, FINEST"; 

180 PRINT "DOSTRACK IN ARIZONA." 

: PRINT 

190 PRINT "I HOPE YOU'RE FEELING 
LUCKY TODAY." 

200 PRINT "I HAVE SOME OF THE FINEST 
PUPS IN THE" 

210 PRINT "MICROCHIP WORLD JUST 

READY TO RUN THEIR PAWS OFF." 
220 PRINT s PRINT "SO MAKE YOURSELF 
AT HOME IN THE BOX CSPACE 53 
SEAT. "s PRINT 

230 PRINT "BY THE WAY YOU CAN CALL 
ME UNCLE LOUIS." 

240 INPUT "WHAT IS YOUR NAME";N$ 

* PRINT 

250 PRINT N$", WOULD YOU LIKE A 
PROGRAM"; s INPUT P$ 

260 IF LEFT* <P$,1><>"Y" THEN 470 
270 PRINT "CCLR31) C RVSON 3 MOLLY 
CR VSOFF 3: HUSKY MIXED BREED 
CAN REAl LY" 

280 PRINT "CSPACE 33HAUL. . .HAS WON 
16 OUT OF 24" 
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290 PRINT "ESPACE 3 3 PROFESSIONAL 
RACES. THIS 7 YEAR OLD" 

300 PRINT " ESPACE 33HAS EXPERINCE, 
CONFIDENCE AND CLASS."; 

310 PRINT " E SPACE 43A SURE BET IF 
SHE DOESN'T STOP ALONG"; 

320 PRINT "ESPACE 43THE TRACK FOR 

A SNACK.": PRINT "ESPACE 3 3 ODDS 
: 2-1": PRINT 

330 PRINT "2) C RVSON 3 FEL I CE C RVSOFF 3 
THIS 8 YEAR OLD SHAGGY HAS" 

340 PRINT "C SPACE 3 3 BEEN KNOWN TO 
FALL ASLEEP IN THE" 

350 PRINT "ESPACE 33MIDDLE OF THE 
TRACK. BUT WATCH OUT." 

360 PRINT "ESPACE 3 3 THIS SLEEPER 
IS FULL OF SURPRISES." 

: PRINT "ESPACE 330DDS: 10-1" 

: PRINT 

370 PRINT "ESPACE 33HIT ANY KEY 
FOR NEXT PAGE": PRINT 
380 GET Q$: IF Q$=" " THEN 380 
390 PRINT "3) E RVSON 3 BAD DOGE RVSOFF 3 
THIS GUY CAN RUN..." 

400 PRINT "ESPACE 3 3 UNFORTUNATELY, 

HE HAS BEEN KNOWN TO" 

410 PRINT "ESPACE 3 3 THROW A FEW 
RACES. ..HIS LICENSE IS" 

420 PRINT "ESPACE 330N PROBATION." 

: PRINT "ESPACE 330DDS: 4-1" 
s PR I NT 

430 PRINT "4) E RVSON 3 B I LL Y E RVSOFF 3 
THIS PUP HAS SPEED, PEP, AND 
ESPACE 23"; 
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Alteration— The variables in line 510 control 
the relative speeds of the dogs. The lower the 
number, the faster the dog. For example, 
changing 0(1 ) to 0(1 )=.85 will make dog 
#1, Molly, faster. 


440 PRINT " [SPACE 43VITALITY. . . IF 
HE RUNS IN THE RIGHT" 

450 PRINT ” [SPACE 33DIRECTION. HE 
IS A REAL THREAT. 11 

460 PRINT "[SPACE 3 I FIRST PROFESSIONAL 
RACE.": PRINT "[SPACE 330DDS 
• 7 s 1 " 

470 PRINT s PRINT s PRINT TAB< 7) "HIT 
ANY KEY TO START M ! PRINT 
480 GET Q$s IF Q$="" THEN 480 
490 PRINT "[CLR3"! PRINT "PLACE 

YOUR BET BY SELECTING NUMBER." 

! PRINT 

500 D$<1) =" MOLLY" ! D$ (2) ="FELICE" 

: D$ <3> *"BAD DOG" s D$ (4) ="BILLY" 

510 0<1)=. 95:0(2)*. 98:0(3)*. 96 
i 0 (4) =• 97 

520 FOR X=1 TO 4s PRINT X"> M D$<X> 
s PRINT i NEXT X 
530 INPUT "WHICH DOG";S 
540 IF S>4 OR S<1 THEN 490 
550 PRINT s PRINT "YOU HAVE $"M 
560 PRINT "HOW MUCH DO YOU WANT 
TO BET”; : INPUT B 
570 IF B>M THEN PRINT "SORRY YOU 

DO NOT HAVE CREDIT": GOTO 550 
580 A$<1>=" [HOME! [DOWN 23" 

: A$ (2) =A$ < 1 ) +" [DOWN 53" 

: A$ (3) =A$ (2) +" [DOWN 53" 

590 FOR X=1 TO 4: B$ (X) *" [RIGHT3 " 
s NEXT X 

600 A$<4)=A$ (3)+" [DOWN 53" 

610 T$="[DOWN 4 3 [ RVSON 3 [ BLK 3 [ SPACE 363 
[RVSQFF3" 

620 PRINT "[CLR3"; TAB( 15>"[RVS0N3 
RACE TRACK [ R VSOFF 3 " : PRINT 
630 FOR X*1 TO 22: PRINT TAB< 36) " 

[RED 3 [RVSON 3 [RVS0FF3"! NEXT X 
640 PRINT A$(1);T$: PRINT A$(2>;T$ 
s PRINT A$(3);T$: PRINT A$<4)jT$ 
650 FOR X=1 TO 4i PRINT A$<X> 

s FOR Y=1 TO 3s PRINT B$(X);C$(X, 
Y) : NEXT Y,X 

660 FOR X=1 TO 4s PRINT A*(X> 

: FOR Y“1 TO 3: PRINT B$(X);C$ 
s NEXT Y 

670 IF RND (8) >.6 THEN B$ (X) =B$ <X> +" 
[RIGHT3" 

680 IF RND (8) >0 (X) THEN 
B$(X)*B$<X)+"[RIGHT3" 

690 PRINT A$(X)s FOR Y=1 TO 3 

s PRINT B$(X) ;C$(X,Y) : NEXT Y 
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700 IF LEN tB* tX) ) >30 THEN PRINT " 

C HOME 3 [DOWN 3 EWHITE3#" X; D* (X) " 
WINS"! GOTO 720 
710 NEXT Xs GOTO 650 
720 FOR T=1 TO 3000s NEXT T 
! PRINT "CCLR3"! PRINT 
s PRINT TAB< 7) "#"X; D* tX) ” WINS!" 
s PRINT 

730 PRINT TABt 7>;N$" BET ON #"S? 

D*tS>! PRINT 
740 IF S=X THEN 770 
750 PRINT TABt 7>N$" LOSES *"B!M=M~B 
» IF M<=0 THEN PRINT TABt 7>N$" 

IS BROKE!"! END 
760 GOTO 820 
770 IF S=1 THEN B=B*2 
780 IF S=2 THEN B=B*10 
790 IF S*3 THEN B=B*4 
800 IF S=4 THEN B*B*7 
810 PRINT TABt 7>N*« WINS ♦"BsM=M+B 
820 PRINT s PRINT : INPUT "PLAY 

AGAIN" 5 Pts IF LEFT* tP$, 1)="Y" 
THEN PRINT s GOTO 470 
830 PRINT s PRINT s PRINT TABt 7)N$" 
LEFT THE TRACK WITH $"M 
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Lost Dutchman Mine 

Here’s a game based on an Arizona folk tale about the disappearance of a Dutch prospector in 
the Superstition mountains. The game is an adventure maze with more than one screen display. 

You move through the first maze picking up gold pieces (.) and searching for clues (?) to the 
hidden treasure of the mine. But you’re constantly being chased by ghosts of lost prospectors. The 
game ends if one catches you. 

When you touch the correct clue, you’ve found the secret treasure stash. You then find yourself 
in a new room. The treasure is in clear sight, but it’s protected by the Dutchman’s ghost. If you 
reach the treasure, you receive 10 times the amount of gold collected in the first maze. 


100 REM LOST DUTCHMAN MINE 
110 QOSUB 710 
120 SR*0sBL*2020 

130 PRINT "CH0ME3CRIGHT 14 3 SCORE! "SR 
140 JY* PEEK (56321 >sJY*15-(JY AND 15) 
sK* PEEK (197) :J= PEEK <653>!AL*L 
150 POKE L,32s IF JY*1 OR JY=5 OR 
JY*9 OR <K*7 AND J*l> THEN 
AL*AL-40 

160 IF JY*2 OR JY*6 OR JY-10 OR <K*7 
AND J*0) THEN AL*AL+40 
170 IF < JY>3 AND JY<7> OR <K*2 AND 
J*l) THEN AL-AL-1 
180 IF JY>7 OR <K*2 AND J=0> THEN 
AL=AL+1 

190 IF PEEK CALX >160 THEN L=AL 
200 IF PEEK <L)=G THEN 3S0 
210 IF PEEK (L) =46 THEN SR=SR+1 
220 IF PEEK <L>*CL THEN SR=SR+100 
i PRINT "CHQME3FIND ROOM" 

! FOR T*1 TO 999 i NEXT 
230 IF PEEK <L)=CL THEN PRINT "C HOME 3 
[SPACE 103" 

240 IF L*RL THEN 520 
250 IF L*GL THEN 630 
260 POKE L,I:LY* INT ( (L-S) /40) 
sLX»L-S-LY*40 

270 NG-3* IF RL-2020 THEN NG*1 
280 FOR X«1 TO NG*M*8<X)s POKE M,32 
290 8Y* INT <<M-S)/40>!GX«M-S-BY*40 
300 IF GX<LX AND ( PEEK (M+1X50 OR 
PEEK <M+1)*I> THEN M»M+1 
310 IF GX>LX AND < PEEK (M-1X50 OR 
PEEK (M-1)*I) THEN M*M-1 
320 IF GY>LY AND < PEEK (M-40X50 OR 
PEEK (M-40) *1 ) THEN M*M~40 
330 IF BY<LY AND < PEEK (M+40X50 OR 
PEEK (M+40)*I) THEN M*M+40 
340 8<X)-M* POKE M,B* IF 8*65 THEN 
8*88: GOTO 360 
350 IF 8*88 THEN 6*65 
360 IF M*L THEN 380 
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370 NEXT X: GOTO 130 
380 S0=54272s FOR X=0 TO 24 
s POKE SO+X,Os NEXT X 
390 POKE SQ+14,5s POKE S0+1B,16 
s POKE S0+3,ls POKE SO+24,143 
400 POKE S0+6,240s POKE SO+4,65 
410 POKE 53280 , 2 s F 1 “5389 

s FOR X*0 TO 119: F=F1+ PEEK 
<SQ+27>*3.5 

420 H* INT <F/256)sL=F-H*256 
430 IF INT (X/10)/2= INT < INT 
(X/10>/2) THEN POKE 53280,2 
s POKE 53281,2 

440 IF INT <X/10)/2<> INT < INT 
(X/10J/2) THEN POKE 53280,14 
: POKE 53281,1 

450 POKE 50, L: POKE SO+l,Hs NEXT X 
460 POKE SO+24,0 
470 FOR X-l TO 2000s NEXT X 
480 PRINT "CCLR3"! PRINT s PRINT 
490 PRINT "YOU LOSE!": PRINT "MY 
GHOST GOT YOU!” 

500 PRINT s PRINT "HA HA HA HA HA!" 

510 GOTO 680 

520 PRINT “CCLR3" s PRINT "CBLK3 
CRVSQN3 C SPACE 183" 

530 FOR X=1 TO 12s PRINT " CRVS0N3 
"5 TAB( 18) ; " CRVS0N3 "s NEXT X 
540 PRINT "CBLK3 CRVS0N3 C SPACE 183" 

550 S=1106sB*160sBX=49 

MORE-* 
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560 FOR X=0 TO BXs POKE S+40* I NT < 
RND <8>*12>+ INT < RND <8)*17),B 
: NEXT X 

570 FOR X =55296 TO 56295s POKE X,0 
s NEXT X 

580 GL=S+40* INT ( RND (8) #12)+ INT < 
RND (8) *17): POKE GL,164 
590 6=88: FOR X=1 TO 3:G<X)=1513 
: NEXT X:L=S+8 

600 FOR X=1 TO 3s POKE G(X),G: NEXT X 
s POKE L,I 
610 RL=2020 

620 FOR T=1 TO 2500s NEXT Ts GOTO 130 
630 FOR X=1 TO 2000s NEXT X 
640 PRINT "CCLR3": PRINT s PRINT 
650 PRINT TAB< ID" YOU FOUND THE 
GOLD!": PRINT s PRINT 
660 PRINT TAB< 11) "FINAL SCORE: "SR* 10 
670 PRINT s PRINT 

680 POKE 198,0s PRINT TAB ( 14) "PLAY 
AGAIN";: INPUT Q* 

690 IF LEFT* <Q*,1)="Y" THEN 110 
700 END 

710 PRINT "CCLR3CBLK3": POKE 53281,1 
720 PRINT " C SPACE 5 3 C R VSON 3 LOST 

DUTCHMAN MINE ADVENTURE": PRINT 
730 PRINT "SOME TIME AGO, IN 
ARIZONA'S SUPERSTITION"; 

740 PRINT "MOUNTAINS, THE GOLD OF 
THE LOST" 

750 PRINT "DUTCHMAN WAS LOST IN A 
CAVE. "s PRINT 

760 PRINT "AS YOU SEARCH THE CAVES 
BE SURE TO" 

770 PRINT "AVOID THE GHOSTS <_X) . " 
s PRINT 

780 PRINT "COLLECT DOTS FOR POINTS 
AND THE" 

790 PRINT "MYSTERIOUS CLUES <CRVS0N3? 
CRVS0FF3) TO HELP YOU ONCSPACE 53 
THE WAY": PRINT 

800 PRINT "USE A JOYSTICK OR THE 

CURSOR KEYS TOC SPACE 4 3 MOVE. “ 

810 PRINT s PRINT "ENTER YOUR FIRST 
INITIAL." 

820 GET I*s IF I$="“ THEN 820 
830 IF ASC (I*) <65 OR ASC (I*) >90 
THEN 820 

840 PRINT "ECLR3": PRINT "CBLK3 
CRVSQN3 C SPACE 373" 

850 FOR X=1 TO 19s PRINT " CRVS0N3 
"; TAB< 37) ; " CRVS0N3 ": NEXT X 
860 PRINT " C R VSON 3 C SPACE 373" 
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Alteration— Change the number of barriers by 
changing the value of BX in line 880. 

Alteration— Change the number of gold pieces 
in the first maze by changing the value of C in 
line 880. 


970 S=1106:B*160:G=146:CL=191 
: 1= ASC <I$>-64 

880 BX=249:C=99 

890 FOR X=55296 TO 56295s POKE X,0 
s NEXT X 

900 FOR X«0 TO BX: POKE S+40* INT ( 

RND <8)*19>+ INT < RND <8>*35),B 
: NEXT X 

910 FOR X*0 TO Cs POKE S+40* INT C 

RND (8) *19) + INT < RND <8>*35>,46 
: NEXT X 

920 FOR X*0 TO 3:RL=S+40* INT ( RND 
<8) *19) + INT < RND (8) *35) 
s POKE RL, CL: NEXT X 

930 8*88: 8(1) *1428:8 (2) *1458: 8 (3) *1764 
:L*S+1B 

940 FOR X*1 TO 3: POKE 8<X),6: NEXT X 
: POKE L,I 

950 RETURN 
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Biorhythm 

Some experts say that our lives are governed by three regular cycles: physical (23 days), 
emotional (28 days) and intellectual (33 days). This fun program calculates your current status on 
each cycle, telling you about yourself today, yesterday or tomorrow! 

First, you’re instructed to enter any date for which you want your biorhythm calculated. Then 
you enter your date of birth. Months are spelled out. Days and years are entered as numbers. 

The program calculates how many days you’ve been alive between the first date entered and 
your date of birth. Then it calculates your biorhythm and displays results for each cycle— physical, 
emotional and intellectual— in a bar chart. If you’re in the first half of the cycle, you’re in the up 
phase. The second half of the cycle is the down phase. Results are accurate to within one day for any 
two dates in the 20th Century. 


100 REM BIORHYTHM 
110 DIM M* ( 12) 

120 FOR X=1 TO 12s READ M*(X)s NEXT X 
130 PRINT " CCLR3 CWHITE3 " : PRINT "THE 
THEORY OF BIORHYTHMS STATES 
THAT" 

140 PRINT "EACH PERSON HAS THREE 
PSYCHOLOG I CALC SPACE 5 3 CYCLES 
WHICH ARE RELATED TO" 

150 PRINT "THEIR PHYSICAL, EMOTIONAL, 
AND C SPACE 1031 NTELLECTUAL 
STATES. " 

160 PRINT s PRINT "THESE CYCLES 

ARE SAID TO BEGIN AT BIRTH." 

170 PRINT "THE PHYSICAL IS 23 DAYS 
LONG. " 

180 PRINT "THE EMOTIONAL IS 28 DAYS 
LONG. " 

190 PRINT "THE INTELLECTUAL IS 33 
DAYS LONG."! PRINT 
200 PRINT "THE FIRST HALF OF THE 
CYCLE IS SAID TOCSPACE 23BE 
AN UP TIME AND THE SECOND "; 

210 PRINT "HALF ISCSPACE 43SAID 
TO BE A DOWN TIME. " 

220 PRINT "THE MID POINT IS CALLED 
A CRITICAL DAY." 

230 FOR T*1 TO 1500s NEXT T: PRINT 
l PRINT 

240 INPUT "ENTER BIRTH MONTH (SPELL 
IT>";M1* 

250 FOR Ml=l TO 12s IF LEFT* (Ml*, 3)* 
LEFT* (M* (Ml ) ,3) THEN 270 
260 NEXT Mis PRINT "NO SUCH MONTH" 
s GOTO 240 

270 INPUT "ENTER BIRTH DAY";D1 
s IF D1 >31 THEN 270 
280 INPUT "ENTER BIRTH YEAR" j Y1 
290 PRINT s PRINT 
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300 INPUT "TODAY'S MONTH (SPELL 
IT)";M* 

310 FOR M=1 TO 12s IF LEFT* (M*,3>= 
LEFT* (M* (M) ,3) THEN 330 
320 NEXT Ms PRINT "NO SUCH MONTH" 
s GOTO 300 

330 INPUT "TODAY'S DAY";D 
s IF D>31 THEN 330 
340 INPUT "TODAY'S YEAR"; Y 
350 F= ( Y- Y 1 ) *365 . 25 s H* ( M-M 1 ) *30 . 42 
s J*D-D1 

360 X* INT (F+H+J) -2 
370 P*(X/23- INT <X/23)>*23 
380 E= (X/2S- INT <X/28>)*28 
390 1= (X/33- INT <X/33))*33 
400 PRINT "CCLR3 BIORHYTHM FOR "M*""; 
D;","Ys PRINT 

410 PRINT s PRINT "YOU HAVE BEEN 
ALIVE"X"DAYS. "s PRINT 


MORE ■* 
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Alteration— Change the graphics character in 
the bar chart from a square to any other 
character. Do this in lines 430, 450 and 470. 

Alteration— Add a routine that interprets the 
results of the biorhythm calculation. For 
example, a statement might say IT LOOKS 
LIKE A GREAT DAY FOR YOU 
EMOTIONALLY AND 
INTELLECTUALLY. PHYSICALLY, 
YOU’RE IN TROUBLE! 


420 PRINT 11 CRVSON 3 PHYSICAL CYCLE" 
s PRINT " C SPACE 43"; 

430 FOR X=0 TD Ps PRINT "CRVSON3 
" ; : NEXT Xs PRINT "CLEFT 33" 

INT (P+.S) 

440 PRINT : PRINT s PRINT "CRVSQN3 

EMOTIONAL CYCLE": PRINT "C SPACE 43 

H ■ 

450 FOR X=0 TO Es PRINT "CRVSON3 
NEXT Xs PRINT "CLEFT 33" 

INT <E+.5) 

460 PRINT s PRINT : PRINT “CRVSQN3 
INTELLECTUAL CYCLE" 
s PRINT " C SPACE 43"; 

470 FOR X»0 TO Is PRINT "CRVSQN3 
"; : NEXT Xs PRINT "CLEFT 33" 

INT (I+.5) 

480 PRINT s PRINT 8 PRINT "HIT ANY 
KEY FOR NEW BIORHYTHM" 

490 SET Q$: IF Q$=" " THEN 490 
500 60T0 290 

510 DATA JAN , FEB f MAR , APR f MAY , JUN , JUL , 
AUG , SEP , OCT , NOV , DEC 
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Queen Of The Nile 

Journey through Cleopatra’s tomb in search of ancient treasure. Your time is limited to two 
minutes, and the dangers are many. But clever action will bring you rewards. 

Control your progress through the burial maze by using a joystick or the cursor keys to move 
yourself (U) to the treasure ($). By pressing the fire button or space bar, you can blast through walls 
with dynamite. But be careful because your supply of dynamite is limited. You may destroy treasure 
too! 

If you run into a snake pit (S) or mummy (M) , the game ends. 


Alteration— Decrease or increase the amount 
of dynamite by changing the value of D in line 
130. 


Alteration— Increase the number Of walls by 
changing line 160 to IF RND(9)> .4 THEN 
POKE X,1 60: POKE X+C0,0 


100 REM QUEEN OF THE NILE 

110 FOR X=0 TO Ss READ L<X>: NEXT X 

120 GOSUB 530 

130 PRINT "CCLR3CWHITE3"! 00=54272 
s UL=18S4: UC=21 s D=9: G=0: FL=0 
140 FOR X=1064 TO 1103s POKE X,160 
s POKE X+C0,0: NEXT X 
150 FOR X=i 104 TO 1863s IF RND (8) >.8 
THEN POKE X ,46s POKE X+C0,7 
160 IF RND (7) >.5 THEN POKE X,160 
s POKE X+C0,0 
170 NEXT X 

180 FOR X=0 TO 9s M= INT < RND 
(9) *600) +1144s POKE M,13 
s POKE M+CQ , 1 : NEXT X 

MORE-* 
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Alteration— Changing the equation for G in 
line 370 changes the value of the treasure. For 
example, G=G+INT(RND(8)* 20)* 

1 000+20000 makes the treasure more 
valuable. 

Alteration— Changing Tl in line 380 to 
Tl> 1 0800 allows a three-minute time limit. 


190 FOR X=0 TO 9:S* 1NT < RND 
(9) *600) +1144: POKE S,19 
s POKE S+C0,5: NEXT X 
200 FOR J*1 TO 6 

210 TR« INT < RND (9) *480) +1 144: F=0 
s FOR X*0 TO 8: A* PEEK <TR+L<X)> 
s IF A«13 OR A*19 THEN F*1 
220 NEXT Xs IF F*1 THEN 210 
230 TR ( J) *TRs POKE TR,36 
s POKE TR+CO ,7s NEXT J 
240 Tit* "000000" 

250 K* PEEK < 197) : J* PEEK (653) 

260 PRINT "CH0ME3TIME: " MIDt (Tit, 4, 
l)"s" RIGHTt (Tit, 2) "CSPACE 43 
GOLD t" STRt (G) ; 

270 PRINT "CSPACE 23DYNAMITE " STRt 
(D) +" " 

280 JY* PEEK (56321) sFI*JY AND 16 
:JY=15-(JY AND 15) sTL=UL 
8 POKE UL,32 

290 IF UL>1064 AND (JY-1 OR JY*5 OR 
JY*9 OR (K*7 AND J-l)) THEN 
UL*UL-40s GOTO 330 
300 IF UL<1904 AND (JY*2 OR JY»6 OR 
JY*10 OR (K*7 AND J*0) ) THEN 
UL*UL+40s GOTO 330 
310 IF UL>1064 AND ( ( JY>3 AND JY<7) 

OR (K*2 AND J*1 ) ) THEN UL*UL-1 
320 IF UL< 1944 AND (JY>7 OR (K-2 AND 
J*0)) THEN UL*UL+1 

330 P* PEEK (UL)s IF P* 160 THEN UL*TL 
340 IF P*13 THEN Et*"MY MUMMY GOT 
YOU! ! !":FL»1: GOTO 470 
350 IF P*19 THEN Et*"YOU FELL INTO 
A SNAKE PIT! ! !"sFL*ls GOTO 470 
360 IF P*46 THEN G*G+100 
370 IF P*36 THEN G*G+ INT ( RND 
( 8 ) * 10 ) * 1000+10000 
380 IF TI >7200 THEN Et*"TIME HAS 
EXPIRED": GOTO 470 
390 IF RND (8) <.2 THEN M- INT ( RND 
(9) *600) +1144: IF PEEK (MX >32 
THEN 390 

400 POKE M, 160: POKE M+C0,0 
410 POKE UL,UC: POKE UL+C0,1 

: IF D>0 AND (K*60 OR K*15 OR 
FI016) THEN 430 
420 GOTO 250 

430 FOR E*0 TO 8: POKE UL+L(E>,32 
: NEXT E:D*D-1 

440 5*54272: FOR L*S TO S+24 

s POKE L,Ot NEXT x POKE S+5,15 
: POKE S+6,15: POKE S+24, 15 
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450 POKE S+l ,5: POKE S,235 

: POKE S+4,129: POKE S+4,128 
: POKE UL,UC: FOR T=0 TO 2000 
: NEXT T 

460 GOTO 250 

470 FOR T*1 TO 2000; NEXT T 

; POKE 198,0: PRINT "CCLR]" 

8 PRINT s PRINT TAB( 20- LEN 
<E*)/2>sE$ 

480 IF FL-1 THEN 500 

490 PRINT s PRINT "C SPACE 2 1 YOU 

COLLECTED *"G" WORTH OF GOLD!" 
s PRINT 

500 PRINT s PRINT TAB< 13) "PLAY 
AGAIN ";8 INPUT Q$ 

510 IF LEFT* <QS,1)="Y" THEN 130 

520 END 

530 POKE 53281,12s PRINT "CCLR] 

C WHITE] " : PRINT TAB < 12) "QUEEN 
OF THE NILE" 

540 PRINT 8 PRINT "USE JOYSTICK 
OR CURSOR KEYS TO MOVE." 

550 PRINT "PRESS FIRE BUTTON OR 
SPACE BAR TO BLAST THROUGH 
WALLS.". PRINT 

560 PRINT “YOU HAVE TWO MINUTES 
TO GATHER TREASURE." 

570 PRINT "SYMBOLS: "s PRINT 
: PRINT " CYEL]*C WHITE] * 
TREASURE": PRINT 

580 PRINT " CYEL] . [WHITE] * GOLD 
PIECE": PRINT s PRINT " M * 
MUMMY": PRINT 

590 PRINT " CGRN] SC WHITE] * SNAKE 
PIT"; PRINT s PRINT " CBLK] 
CRVSON] ERVSOFFIC WHITE] * WALL" 
s PRINT 

600 PRINT s PRINT "HIT ANY KEY TO 
START" 

610 GET Q$: IF Q$*"" THEN 610 

620 RETURN 

630 DATA -41,-40,-39,-1,0,1,39,40,41 
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Thin Ice 

Don your wool cap and grab your pole and auger because it’s time to do some ice fishing on 
Ted’s pond. Due to some recent warm weather, there are spots of thin ice. Avoid them because 
unusual dangers lurk below. Get as many fish as you can before time runs out or you fall in. Hint: 
Pick up fish with your mouth. 


Alteration— Change the graphics symbol in 
line 290 to create a different kind of fish. 


100 REM THIN ICE 
110 POKE 53281,1s POKE 53280,6 
s DIM F ( 16,20) 

120 PRINT "CCLR3CBLK 3 WELCOME TO 
TED'S POND": PRINT 
130 PRINT "THE POND IS FROZEN OVER 
FOR THE FIRST" 

140 PRINT "TIME THIS SEASON.": PRINT 
150 PRINT "YOU ARE INVITED TO ICE 
FISH* 11 

160 PRINT* "BE CAREFUL THOUSH, THIS 
WARM SPELL" 

170 PRINT "MIGHT HAVE CAUSED SOME 
SPOTS OF" 

180 PRINT "CRV50N3THIN ICECRVSQFF3. " 
s PRINT 

190 PRINT "SKATE BY USING THE CURSOR 
KEYS.": PRINT 

200 PRINT "YOU GET POINTS BY PICKING 
UP FROZEN" 

210 PRINT "FISH (A) AND BY NOT 
GETTING INJURED." 

220 PRINT : PRINT "HIT ANY KEY TO 
START. 11 

230 GET Q$: IF Q$= MH THEN 230 
240 P$ ( 1 ) =" CBLK3 W":P$ <2> =" CRED3<+>" 
: P$ (3) =" CBLK3 1 RVSON 3 v C RVSOFF 3 
CRVS0N3c" 

250 E$=" C SPACE 33" 

260 V$= " C HOME 3" :H$="CRI GHT 3 " 

270 PRINT "CCLR3": FOR X=1 TO 15 
: PRINT " "; 

280 FOR Y=1 TO 20:F(X,Y)=0 
290 IF RND (8) <.3 THEN PRINT " CBLU3 
A"; :F(X,Y>=1: GOTO 310 
300 PRINT " "; 

310 IF RND (8) <.01 THEN F(X,Y>=2 
320 IF RND (8X.004 THEN F(X,Y>=3 
: PRINT "CLEFT3*"; 

330 IF RND (8X.001 AND F(X,Y)=1 
THEN F (X , Y) =4 

340 NEXT Y: PRINT " ": NEXT X 
350 PRINT V$: FOR 1=1 TO 3 
: PRINT H$;P$<I): NEXT I 
360 X= 1 : Y=2 : S=0 :TI$=" 000000 " 

370 GET Q$ 
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Alteration— Add a splashing sound when the 
user falls through the ice, line 550. 


380 PRINT " C HOME 3 C DOWN 43CRIGHT 213 
TIME s 

390 PRINT MID* <TI*,4,1>" 

RIGHTS (TI*,2) 

400 PRINT V*: FOR 1=1 TO 3 
s PRINT H*;E*: NEXT 
410 IF 0*=" £ DOWN 3 11 AND X<15 THEN 
V*=V*-M3*:X=X+1 

420 IF Q*=" CUP3 " AND X>1 THEN V*= 

LEFT* <V*, LEN <V*> -1 ) s X=X-1 
430 IF Q*="CRIGHT3" AND Y<20 THEN 
H*=H*+Q*:Y=Y+1 

440 IF Q*=" CLEFT 3 " AND Y>1 THEN H*= 
LEFT* <H*, LEN <H*) -1 ) : Y=Y-1 
450 PRINT V*: FOR 1=1 TO 3 
: PRINT H*;P*<I): NEXT I 
460 F=F (X , Y) : IF F=1 THEN S=S+10 
:F<X,Y>=0 

470 IF F=2 THEN PRINT "C HOME 3 THE 
ICE NEARLY BROKE !": S=S+500 
s FOR T=1 TO 1000: NEXT T 
480 IF F=2 THEN PRINT "C HOME 3 500 
POINT BONUS. ESPACE 53" 

: FOR T=1 TO 1000: NEXT T 
490 IF F=2 THEN PRINT "CH0ME3 ESPACE 173 
":F<X,Y)=0 
500 IF F=4 THEN 630 
510 IF F=3 THEN 550 
520 PRINT " C HOME 3 C DOWN 33ERIGHT 223 
SCORE:" STR* <S> 

530 IF T I >7200 THEN 590 
540 GOTO 370 

550 PRINT "ECLR3": POKE 53281,6 
: FOR T=1 TO 999: NEXT T 
560 POKE 53281,1: PRINT : PRINT 
570 PRINT "YOU JUST BECAME SHARK 
MEAL ! " 

580 S=0: GOTO 670 

590 PRINT " ECLR3": PRINT : PRINT 

600 PRINT "TIME HAS EXPIRED" 

610 FOR T=i TO 999: NEXT T 
620 GOTO 670 

630 PRINT "ECLR3": PRINT : PRINT 
640 PRINT "YOU JUST CAUGHT A SCHOOL 
OF FISH!" 

650 PRINT : PRINT "IT'S A MIRACLE! 

YOU WIN!" 

660 S=S*3 

670 PRINT : PRINT : PRINT 
680 PRINT "FINAL SCORE="S 
690 POKE 198,0 

700 PRINT : INPUT "PLAY AGAIN" jQ* 

710 IF LEFT* <Q*,1)="Y" THEN 260 
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Bomb Squad 

You’re the expert working against the clock, trying to find a ticking bomb hidden in a 
million-room tower! You have 250 seconds to find the bomb. Each move takes exactly 10 seconds. 
To help, you have a bomb-sensitive device that gives a stronger readout as you approach the bomb. 

You determine the location of a room by entering values from 0 to 99 for length, width and 
height. Your device then gives a readout that indicates how close you are to the bomb. 10,000 is the 
highest readout. A correct value for length, width or height is indicated by double asterisks in place 
of the number entered. 

If you don’t find the bomb in 250 seconds, it explodes. If you do find the bomb, you have an 
additional 100 seconds to defuse it. Guess the three-number combination in the same way you 
found the room. Enter values from 1-10. 


Alteration— If you make the game easier or 
more difficult, be sure to change the 
instructions in lines 110 to 180. Also, to make 
the game less violent, change its name to 
Treasure Hunt. Change the statements that 
give the user instructions and commentary. 
The new statements should discuss finding a 
hidden treasure chest. When the chest is 
found, the user has to open the padlock. 


Alteration— To make the game easier, try 
decreasing the number of rooms by changing 
INT(RND(8)* 1 0O) for variables A, B and C 
to INT(RND(8) * 50) in line 220. 


100 REM BOMB SQUAD 
110 PRINT "[CLR3YOU ARE ABOUT TO 
ACCEPT A DANGEROUS [SPACE 53 
MISSION. " 

120 PRINT : PRINT "A BOMB IS HIDDEN 

IN ONE ROOM OF ACSPACE 73MILLION 
ROOM TOWER." 

130 PRINT s PRINT "ENTER ROOM NUMBER 
BY LENGTH, WIDTH, AND HEIGHT 
(0-99) . " 

140 PRINT "A [ RVSQN 3 ** [ R VSOFF 3 SHOWS 
A CORRECT ENTRY.": PRINT 
150 PRINT "YOU HAVE 250 SECONDS 
TO FIND THE BOMB [ SPACE 3 3 OR 
IT WILL EXPLODE.": PRINT 
160 PRINT "YOUR LOCATION BEACON 
WILL GIVE A" 

170 PRINT "STRONGER SIGNAL AS YOU 
APPROACH THE BOMB" 

180 PRINT : PRINT "WHEN YOU FIND 

THE BOMB YOU HAVE 1 00 C SPACE 53 
SECONDS TO DEFUSE IT." 

190 PRINT : PRINT "PRESS ANY KEY 
TO START GAME.": PRINT 
200 GET Q$: IF Q$* H " THEN 200 
210 31*36878: S2*36877 
220 A* INT < RND (8) *100) 

:B* INT < RND (8) *100) 

:C* INT < RND (8) *100) 

230 PRINT " [GLR3 " : S*10 
240 PRINT " C HOME 3 C DOWN 8 30 [SPACE 231 
[SPACE 232[SPACE 233[SPACE 234 
[SPACE 235[SPACE 236[SPACE 237 
[SPACE 23 8 [SPACE 239[SPACE 2310" 
250 PRINT 11 [HOME 3 [DOWN 93 q rr+rr+rr+rr+ 
rr+rr+rr+rr+rr+rr w " : PRINT 
260 PRINT " qee+ee+ee+ee+ee+ee+ee+ee+ee 
+ee+ " 
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270 PRINT ”C SPACE 103 BOMB DETECTOR 
[HOME 3" 

280 PRINT " LC SPACE 33 WC SPACE 33H 
[SPACE 33TIMECSPACE 3 3 BEACON *' 

: PRINT 

290 IF A=L THEN 330 
300 PRINT "C HOME 3 [DOWN 53” 
s INPUT "LENGTH" ;L 

310 PRINT "CHOME 3 [DOWN 63 [SPACE 123” 
s IF L>99 OR L<0 THEN 300 
320 PRINT " [HOME 3 [DOWN 33" 5TR$ <L>+" 

II 

330 IF B=W THEN 370 
340 PRINT "[HOME 3 [DOWN 53” 
s INPUT "WIDTH" s W 

350 PRINT " [HOME 3 [DOWN 63 [SPACE 123" 
s IF W >99 OR W<0 THEN 300 
360 PRINT "[HOME 3 [SPACE 43 [DOWN 33" 
STR$ <W>++" " 

370 IF C*H THEN 410 

380 PRINT "[HOME 3 [DOWN 53" 

: INPUT "HEIGHT" iH 

390 PRINT " [HOME 3 [DOWN 63 [SPACE 123" 
s IF H>99 OR H<0 THEN 300 
400 PRINT "[HOME 3 [SPACE 83 [DOWN 33" 
STR$ ( H ) + 11 11 

410 PRINT "[H0ME3 [SPACE 123 [DOWN 33"S 

MORE- 




Bomb Squad 


Alteration— To make the game easier, give 
yourself more time to find the bomb by 
changing S in line 510 to S=S+1 0: IF 
S< 300 THEN 290. 


420 PRINT "[HOME 3 EDOWN 103"; TAB < J) « 

II 

430 BE=lE4-< ABS <A-L)+ ABS <B-W>+ ABS 
(C-H) >*29 

440 J= INT (BE/333. 3333+. 5> 

: PRINT "EH0ME3 EDOWN 103"; TAB ( 

J ) ,,AM 

450 PRINT "CH0ME3 [SPACE 193 [DOWN 33 
"BE 

460 PRINT "EHQME3 [DOWN 33"; 

470 IF A*L THEN PRINT TAB< 1)"CRVS0N3 
** ERVSOFF 3"; 

480 IF B=W THEN PRINT TAB< 5)”ERVSON3 
**ERVS0FF3"; 

490 IF C=H THEN PRINT TAB ( 9>"ERVSON3 
** ERVSOFF 3 “ 

500 IF A*L AND B=W AND C=H THEN 550 
510 S=S+10: IF S<260 THEN 290 
520 GOSUB 900 

530 PRINT "BONB WAS AT": PRINT A;" 

II a II H a P a II H a P 
9 9 D 9 9 

540 END 

550 PRINT "CCLR3CDQWN 93 [SPACE 143 
[RVS0N3B0NB LOCATED ERVSOFF 3" 

560 V* INT ( RND <8>*10>+1 
:N= INT < RND <8)*10)+1 
:M= INT ( RND <8>*l6)+l 
570 FOR TT*1. TO 2000: NEXT 
580 PRINT "ECLR3Y0U HAVE LOCATED 
THE BONB.": PRINT 
590 PRINT "YOU MUST NOW DEFUSE IT 

ENTER THE CQRRECTCQMBINATIQN. " 

: PRINT 

600 PRINT "EACH PART IS FROM 1 TO 
10. A CORRECT [SPACE 4 3 NUMBER 
IS DICTATED BY A ERVS0N3** 

ERVSOFF 3." 

610 PRINT : PRINT "GOOD LUCK. YOU 
HAVE ONLY 100 SECONDS" 

620 FOR TT=1 TO 4000: NEXT TT 
630 PRINT " ECLR3 " : S=1Q 
640 PRINT " LEFTESPACE 43RIGHTESPACE 43 
LEFTESPACE 43TIME": PRINT 
650 IF A=V THEN 690 
660 PRINT " E HOME 3 E DOWN 53" 

: INPUT "LEFT"; A 

670 PRINT "EHOME 3 EDOWN 63 [SPACE 123" 

: IF AMO OR A<1 THEN 660 
680 PRINT "EH0ME3 EDOWN 33 "A 
690 IF B=*N THEN 730 
700 PRINT "EHOME 3 EDOWN 53" 

: INPUT "RIGHT" ;B 

710 PRINT "EH0ME3 EDOWN 63 [SPACE 123" 

: IF BMO OR B<1 THEN 660 
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720 PRINT " C HOME 3 C SPACE 83 CDOWN 33 M B 
730 IF C*M THEN 770 
740 PRINT " C HOME 3 C DOWN 53” 
s INPUT "LEFT"sC 

750 PRINT " [HOME 3 CDOWN 6 3 ESP ACE 123” 

: IF C>10 OR C<1 THEN 740 
760 PRINT " [HOME 3 CSPACE 173 CDOWN 33”C 
770 PRINT " [HOME 3 [SPACE 253 CDOWN 33 ”S 
780 PRINT " [HOME 3 CDOWN 33”; 

790 IF A=V THEN PRINT TAB ( 1>”CRVS0N3 
** C RVSOFF ] M a 

800 IF B=N THEN" PRINT TAB ( 9> ,, CRVS0N3 
**C RVSOFF 3 ” ; 

810 IF C=M THEN PRINT TAB ( IS)" 

C RVSON 3 ** C RVSOFF 3 " 

820 IF A=V AND B=N AND C=M THEN 880 
830 S*5+10s IF S<110 THEN 650 
840 GOSUB 900 

850 PRINT "THE COMBINATION WAS" 
s PRINT V;" " 5 N;" ";M: PRINT 
860 PRINT "CONDOLENCES WILL BE SENT 
TO YOUR FAMILY." 

870 END 

880 PRINT : PRINT s PRINT "CSPACE 53 
BOMB DEFUSED" 

890 END 

900 N=532Bls POKE N-1,2: POKE 53281,7 
: PRINT " CCLR3 CWHITE3 [DOWN 103 
CSPACE 133***KABOOM***" 

910 S=54272s FOR L*S TO S+24 
: POKE L,0: NEXT 
920 POKE S+5,15: POKE S+6,15 
: POKE S+24, 15 
930 POKE S+1,5: POKE S,235 

: POKE S+4, 129: POKE S+4,128 
940 FOR X=1 TO 99s IF < PEEK <N) AND 
15) *7 THEN POKE N,2: GOTO 960 
950 POKE N,7 

960 FOR T=1 TO 44s NEXT T,X 
970 POKE N-l , 14s POKE N ,6 
980 RETURN 
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Utopia 

As ruler of an island nation, you’re beset with important decisions. The goal is prosperity for 
you and your people. You try to increase national wealth, personal wealth, population and natural 
resources. The computer acts as your aid, giving you up-to-the-minute information and choices. 
Your reign can last up to 10 years, providing a revolution doesn’t force a change. 


Alterations— You can change the opening 
parameters by altering the values for the 
following variables in line 1 10: P is starting 
population; M is the treasury; F is the original 
number of fish; T is number of years. 


100 REM UTOPIA 

110 P=5000 : M=2000000 s F*5000 s S= 1 0000 
sT=10:T=10 

120 PRINT " C CLR 3 C WH I TE 3 HELLO , I AM 
MODEL 81882 OF THE" 

130 PRINT "OMNISCIENT MICRO ANALYSIS 
RESOURCE" 

140 PRINT "DIVISION. YOU MAY CALL 
ME OMAR."s PRINT 

150 PRINT "PLEASE IDENTIFY YOURSELF 
(NAME)"! INPUT N$ 

160 PRINT " C CLR 3 WELCOME TO UTOPIA, 
"NS"."! PRINT 

170 PRINT "AS BENISN RULER OF UTOPIA, 
YOU MUST" 

180 PRINT "SUIDE YOUR CITIZENS 
THROUGH THE" 

185 PRINT "DECISIONS OF STATE." 

! PRINT 

190 PRINT "AS YOUR CONSULTING AID, 

I WILL PROVIDE [SPACE 2 3 YOU WITH 
DATA."! PRINT 

200 PRINT "YOU CAN GET A STATUS 
REPORT BY H I TT I NG C SPACE 33S 
DURING THE GAME."! PRINT 

210 PRINT "UTOPIA IS AN ISLAND THAT 
IS LOCATED IN[ SPACE 23THE 
TROPICS."! PRINT 

220 PRINT "YOU WILL RULE A MAXIMUM 
OF TEN YEARS. " 

230 PRINT "YOU MUST CONTROL THE USE 
OF NATURAL C SPACE 5 3 RESOURCES 
WELL."! PRINT 

240 PRINT "GOOD LUCK YOUR HIGHNESS." 

250 PRINT "MAY THE NAME OF "N$" BE 
A BLESSING ON OUR ISLAND. " 

260 PRINT ! PRINT "HIT ANY KEY TO 
CONTINUE." 

270 GET Q*t IF Q$»"" THEN 270 

280 GOSUB 1090 

290 FOR T-10 TO 0 STEP -1 

300 INPUT "WHAT IS YOUR SALARY THIS 
YEAR" ! X 

310 M«M-X!R*R+Xi PRINT 

i PRINT "YOUR PERSONAL WEALTH 
IS NOW *"R 
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320 IF R>«<< RND <8>#3)+l)*M THEN 
GQSUB 1160 

330 PRINT s PRINT "CRVSON 3 REPORT 

CRVSQFF3 FROM MINISTER OF FISH" 
s PRINT "EMMY YELLOWTAIL. " 

340 PRINT : PRINT "YOUR HIGHNESS 
THIS IS ITs "s PRINT 
350 A* INT < RND (3>*3)+l 
360 IF A=1 THEN PRINT "ALL IS WELL. 

THE FISH THRIVE. THERE ISCSPACE 
3 3 PLENTY TO FEED ALL." 

370 IF A-l THEN F«F+2000s P=P+5000 
sM=M+ 10000 

380 IF A*2 THEN PRINT "WE NEED MORE 

BOATS. THEY COST $1 0000 C SPACE 43 
EACH. 11 

390 IF A*2 THEN PRINT "HOW MANY WILL 
YOU BUY"; : GOSUB 890:F=500*X 
400 IF A=3 THEN PRINT "THE SEALS 

ARE EATING MOST OF THE FISH." 

: GOSUB 910 

410 IF P<1000 THEN GOSUB 1160 
420 PRINT • PRINT "HIT ANY KEY TO 
CONTINUE" 

430 GET Q$: IF 0$="" THEN 430 
440 PRINT "CCLR3": GQSUB 1090 
450 PRINT ■ PRINT "CRVSON 3 REPORT 

CRVS0FF3 FROM MINISTER OF FARMS" 
s PRINT "STEVEN SOIL." 

MORE- 
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460 X* INT ( RND <3>*3)+l 
470 IF X=1 THEN GOSUB 620 
480 IF X=2 THEN GOSUB 650 
490 IF X=3 THEN GOSUB 700 
500 IF P=>8000 AND M* >8000000 AND 
F>8000 AND R> 1500000 THEN 540 
510 PRINT s PRINT “HIT ANY KEY TO 
CONTINUE" 

520 GET Q*s IF Q$*"" THEN 520 

530 PRINT " CCLR3 " : NEXT T 

540 FOR X*1 TO 10s PRINT "CCLR3" 

: PRINT 

550 FOR TD=1 TO 200: NEXT TD 
560 PRINT TAB< 16) " ERVS0N3C SPACE 73 
CRVS0FF3" 

570 PRINT TAB< 1 6 ) " C RVSON 3 YOU WIN 
CRVSQFF3" 

580 PRINT TAB ( 16) " CRVS0N3 C SPACE 73 
CRVSQFF3" 

590 FOR TD=1 TO 200: NEXT TD,X 
600 PRINT s PRINT s PRINT N$" IS 
MADE RULER FOR LIFE!" 

610 PRINT s PRINT s END 

620 PRINT "ALL CROPS ARE DOING WELL." 

s P-P+2000 s M=M+ 1 00000 
630 FOR TD=1 TO 1000s NEXT TD 
640 RETURN 

650 PRINT "EXCESS SUGAR CANE HAS 

BEEN SOLD FORCSPACE 53*1000000." 
660 PRINT "WHAT PERCENTAGE SHOULD 
GO INTO YOUR" 

670 INPUT "POCKET (0-100) ";X 

680 M=M+ 1 E6- ( 1 E6*X / 100): R=R+ 1 E6*X/ 1 00 

690 RETURN 

700 PRINT "HEAVY FLOODS FROM A 

TYPHOON HAVE WIPED! SPACE 2 3 OUT 
MANY CROPS." 

710 PRINT "WHAT WILL YOU DO?": PRINT 
720 PRINT "A) REPLANT NEW CROPS." 

s PRINT "B) LIVE OFF STORED GRAIN" 
730 PRINT "C) BUY CROPS FROM ABROAD." 

: PRINT 

740 INPUT C$: IF C*<>"A" AND C$<>"B" 
AND C*<>"C" THEN 740 
750 IF C$«"A" THEN M*M- INT (200000* 
RND (8) ) :P=P- INT (100* RND (8)) 
760 IF C$*"B" THEN P=P- INT (2000* 

RND (S))sM=M- INT < RND (8) *10000) 
770 IF C*="C" THEN M=M- INT ( RND 
(3) *400000) 

780 IF M<0 THEN M=0: GOSUB 1160 
790 IF P<100 THEN P*100 
800 RETURN 

810 FOR X-l TO 5s PRINT "CCLR3" 
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820 FOR TD=1 TO 200s NEXT TD 
830 PRINT s PRINT TAB ( 10) "DEATH 
TO "N$" ! ! ! " 

840 FOR TD=1' TO 200s NEXT TD,X 
850 1=1+ INT < RND <4)*P/2) 
sR= INT <R* RND (3)) 

860 IF I>=P*.8 THEN PRINT "YOU HAVE 
BEEN OVERTHROWN." 
s PRINT "YOU LOSE. "8 STOP 
870 IF RND (8) <.7 THEN PRINT "YOU 

HAVE MAINTAINED POWER. "s PRINT 
8 RETURN 

880 PRINT "YOU HAVE RULED CRUELLY 

AND ARE BANISHED FROM UTOPIA." 
s STOP 

890 INPUT Xs IF X-0 THEN GOSUB 1160 
900 M=M-X* 10000s RETURN 
910 PRINT 8 PRINT "WHAT WILL YOU 
DO? "8 PRINT 

920 PRINT "A) KILL THE SEALS" 

s PRINT "B> GIVE UP FISHING" 

930 PRINT "C> LET NATURE HANDLE IT" 

8 PRINT "D) PANIC" 

940 PRINT 8 INPUT A$s IF A$<>"A" AND 
A$<>"B" AND A*0"C" AND A$<>"D" 
THEN 940 

950 IF A$="D" THEN 910 

960 IF A$="A" THEN 1=1+ INT <1000* 

RND (2)) 

970 IF A$="C" THEN 1=1+ INT <500* RND 
<7) ) s F=F- INT < RND <4)*3000> 

980 IF F<0 THEN F=0 
990 IF A$<>"B" THEN RETURN 
1000 PRINT s PRINT "HOW WILL YOU 
FEED THE PEOPLE?" 

1010 PRINT s PRINT "A> LET THEM EAT 
CAKE. "s PRINT "B) BUY THEM 
IMPORTED FOOD." 

1020 PRINT "C> GROW MORE FOOD." 
a PRINT 

1030 INPUT B$a IF B$<>"A" AND B$<>"B" 
AND B$<>"C" THEN 1030 
1040 IF B$="A" THEN GOSUB 1160 
1050 IF B$="B" THEN M=M-P*250 
1060 IF B$="C" THEN M=M-P*200 
! P= INT <P*. 95) 

1070 IF M<0 THEN M=Os GOSUB 1160 
1080 RETURN 

1090 PRINT " C CLR 1 C RVSON 1 ST ATUS REPORT 
8 ISLAND OF UTOP I A C R VSQFF 1 " 
a PRINT 

1100 PRINT s PRINT "POPULATIONS " ,P 
s PRINT "TREASURYa " ,M 

MORE- 
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1110 PRINT "FISH: C5PACE 53 ",F 

: PRINT "PERSONAL WEALTH: ",R 
1120 PRINT "TIME LEFT: " ,T" YEARS" 

: PRINT "INSURGENTS: ", I 
1130 PRINT : PRINT "HIT ANY KEY TO 
CONTINUE. " 

1140 GET Q$: IF Q$*"" THEN 1140 
1150 PRINT " CCLR3": RETURN 
1160 PRINT "CCLR3THE INSURGENTS LED 
BY THE GREAT 11 

1170 PRINT "CATHY COURAGEOUS HAVE 
REBELLED. 11 

11B0 PRINT : PRINT "WHAT WILL YOU 
DO?": PRINT 

1190 PRINT "A) GO INTO EXILE." 

: PRINT "B> TURN OVER ALL CASH" 

: PRINT "C> RESIST" 

1200 PRINT : INPUT D$: IF D$<>"A" AND 
D$<>"B" AND D$<>"C" THEN 1200 
1210 IF D$*"A" THEN 1260 
1220 IF D$*"B" THEN M*M+R:K*R:R*0 
: IF K< ■ 1 *R THEN GOSUB G10 
1230 IF D$«"C" THEN GOSUB 810 
1240 1*1+ INT < RND <8>*P/5> 

1250 RETURN 

1260 IF A$-"A" THEN PRINT "THE SEALS 
BLOCK YOUR ESCAPE.": STOP 
1270 PRINT "YOU ESCAPE BUT YOU STILL 
LOSE THE GAME." 
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Tic-Tac-Toe 

This is a classic game of strategy for two players. The computer provides the playing board and 
acts as master of ceremonies. It checks the progress of the game after each move and either 
announces the winner or determines whether the game is a tie. 


100 REM TIC-TAC-TOE 
110 DIM M<9> ,K<9> ,T<7,2> 

120 FOR W*1 TO 9s READ M(W)s NEXT W 
130 FOR W*0 TO 7s FOR J*0 TO 2 
s READ T(W,J)s NEXT J,W 
140 FOR W*1 TO 9sK(W)*0s NEXT W 
150 DATA 1319,1323,1327,1479,1483, 
1487,1639,1643,1647 
160 DATA 1,2, 3, 4, 5, 6, 7, 8, 9, 1,4, 7, 2, 5, 
8, 3, 6, 9, 1,5,9, 3, 5, 7 
170 PRINT " CCLR3 C WHITE! 11 

s PRINT "HELLO. YOU ARE ABOUT 
TO PLAY TIC-TAC-TOE" s PRINT 
180 INPUT "WHO ARE YQU";A$s PRINT 
s PRINT A$", YOU MAY PLAY WITH 
A FRIEND." 

190 PRINT "I WILL ANNOUNCE THE GAME." 
s PRINT s PRINT "WHO DO YOU 
WANT TO PLAY WITH"* 

200 INPUT B$s PRINT "CCLRl" 

210 PRINT A$" AND "B$", YOU CAN 
TAKE" 

220 PRINT "TURNS BY ENTERING X OR 

0 IN THE PLAYING GRID."s PRINT 
230 PRINT "EACH PLAYER MAY ENTER 
ONCE PER TURN. "s PRINT 
240 PRINT "THE PLAYER WHO GETS THREE 
IN A ROW WINS. "s PRINT 
250 PRINT "A ROW MAY BE HORIZONTAL, 
VERTICAL OR C SPACE 3 IDI AGONAL. " 
260 PRINT s PRINT "THE FIRST PLAYER 
USES AN X» 11 

270 PRINT s PRINT "THE SECOND PLAYER 
USES AN 0. "s PRINT s PRINT 

MORE 
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280 PRINT s PRINT "<«<< CSPACE 21 

PRESS ANY KEY TO CONTINUE! SPACE 21 

»»> ,, 

290 GET Q$: IF Q$=" " THEN 290 
300 PRINT "CCLRl": PRINT "WHEN YOU 
SEE THE SCREEN, YOU WILL SEE" 

310 PRINT "NUMBERS IN THE BOXES 

WHERE THE LETTERS CSPACE 21 WILL 
GO.": PRINT 

320 PRINT "TO PLACE YOUR LETTER, 

SIMPLY TYPE THE! SPACE 31 NUMBER 
WHICH IS LOCATED 

330 PRINT "WHERE YOU WANTCSPACE 21 
YOUR LETTER TO GO, AND PRESS 
C R VSQN 1 RETURN C R VSOFF 1 . " 

340 PRINT : PRINT : PRINT "WHO WILL 
GO FIRST, "A$" OR "B$; 

350 INPUT Z$: IF Z$OA$ AND Z$OB$ 
THEN 340 

360 IF Z$=A$ THEN F$=A$:S$=B$ 

: GOTO 380 
370 S$=A$:F$=B$ 

380 PRINT " CCLRl CDOWN 51" 

385 FOR X =55296 TO 56295: POKE X,l: 
NEXT X 

390 FOR W=1 TO 3: PRINT TAB< 14)" 

C SPACE 31CRVS0N1 CRVS0FF1 C SPACE 31 
CRVS0N1 CRVS0FF1" : NEXT W 
400 PRINT TAB< 14) "CRVS0N1C SPACE 111 
CRVS0FF1 " 

410 FOR W*1 TO 3: PRINT TAB < 14)" 

C SPACE 31CRVS0N1 C R VSOFF 1 C SPACE 31 
CRVS0N1 CRVS0FF1": NEXT W 
420 PRINT TAB< 14) "CRVSON 1C SPACE 111 
C R VSOFF 1" 

430 FOR W*1 TO 3: PRINT TAB< 14)" 

C SPACE 31CRVS0N1 C R VSOFF 1 C SPACE 31 
CRVS0N1 CRVS0FF1": NEXT W 
440 FOR W=1 TO 9: POKE M(W),W+48 
: NEXT W 
450 T=0:FL*0 

460 PRINT "CHOMEl'T#", ENTER YOUR 
MOVE";* INPUT M$ 

470 PRINT 11 CH0ME1 CSPACE 381" 

480 M* VAL <M$): IF M>9 OR K(M)<>0 
THEN 460 

490 POKE M(M) ,24:K(M)*M:T»T+1 

: GQSUB 580: IF FL*1 THEN 550 
500 PRINT "CH0ME1"S$", ENTER YOUR 
MOVE";* INPUT M$ 

510 PRINT "CH0ME1 CSPACE 381" 

520 M» VAL <M$>* IF M>9 OR K(M)<>0 
THEN 500 




Tic-Tac-Toe 


Alteration— Add music when the winner is 
announced by extending the subroutine 
beginning at line 630. 


530 POKE M(M> , 15: K (M> =M: T=T+1 

s BOSUB 580: IF FL=1 THEN 550 
540 GOTO 460 

550 PRINT "CHOMEr'W*: PRINT 
: INPUT "PLAY AGAIN" ;Q$ 

560 IF LEFTS <Q$,1)="Y" THEN 140 
570 END 

580 FOR W=0 TO 7:A= PEEK CM<T<W,0>>> 
:B= PEEK (M (T (W, 1 ) ) ) 

:C= PEEK <M<T<W,2>>> 

590 IF A=24 AND B*24 AND C=24 THEN 
WS=FS+” WINS! ":FL=1: GOSUB 630 
600 IF A=15 AND B*15 AND 015 THEN 
W$=S$+" WINS ! " : FL=1 : GOSUB 630 
610 IF FL=0 AND T=9 THEN FL=1 
:WS*"TIE GAME!" 

620 NEXT W: RETURN 
630 FOR 1*0 TO 2: POKE M<T(W,I>), 
PEEK <M<T <W f I) ) >+128: NEXT I 
: RETURN 
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Dice Racers 

Here is a dice-simulation game using a computer-generated pair of dice. Two players take turns 
“rolling” the dice. Each player uses the die values to move two cars toward a finish line. The first 
player with both cars over the line wins. 


Alteration— Use the dice routine for any board 
game requiring dice. Use lines 110, 490-5 10 
and 800-820. 


100 REM DICE RACERS 
110 FOR X-l TO 6s FOR Y*1 TO 3 
s READ K$<X,Y)s NEXT Y,X 
120 POKE 53281,0s PRINT " ECLR3 EWHITE3 
"5 TAB< 16) "ERVSON3DICE RACE" 
s PRINT 

130 PRINT "THIS SAME IS FOR TWO 
PLAYERS. "8 PRINT 

140 INPUT "PLAYER ONE'S NAME" }N1$ 

150 INPUT "PLAYER TWO'S NAME"sN2$ 
s PRINT 

160 PRINT "YOU EACH HAVE TWO CARS 
TO DRIVE BY" 

170 PRINT "MOVING THEM ACCORDING 
TO THE THROW" 

ISO PRINT "OF THE DICE. YOU CAN 
MOVE ONE CAR THE" 

190 PRINT "VALUE OF BOTH DICE OR 
SPLIT THE DICE" 

200 PRINT "AND MOVE BOTH CARS." 
s PRINT 

210 PRINT "YOU CANNOT MOVE MORE 

THAN THE VALUE OF E SPACE 2 3 THE 
DICE. "s PRINT 

220 PRINT "THE FIRST PLAYER TO HAVE 
BOTH CARS" 

230 PRINT "<H> ACROSS THE FINISH 
LINE WINS. "s PRINT 
240 PRINT "AFTER THE DICE ROLL, 

THE COMPUTER WILL" 

250 PRINT "ASK YOU HOW MUCH YOU 
WANT TO MOVE CAR" 

260 PRINT "ONE AND THEN HOW MUCH 
YOU WANT TO MOVE E SPACE 2 3 CAR 
TWO. " 

270 PRINT "BE SURE TO ENTER A ZERO 
IF YOU DO NOTE SPACE 33WANT 
TO MOVE A CAR." 

280 PRINT s PRINT "HIT ANY KEY TO 
START" 

290 GET Q$* IF Q$*"" THEN 290 
300 R 1 " E R VSQN 3 E MED . GRAY 3 E SPACE 63 
EWHITE3 E MED . GRAY 3 E SPACE 63" 

310 R2$* " E R VSON 3 E MED . GRAY 3 E SPACE 133" 
320 PRINT "ECLR3" TAB ( 14)*R1$ 

330 PRINT TAB( 14) "ERVSON3EMED.GRAY3 
*F'I-N-I-S-H*" 
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Alteration— Change the program so players 
have to hit the finish line exactly. If a car goes 
too far, it must start over. 


340 FOR X=1 TO 10: PRINT TAB ( 14);R1S 
: PRINT TAB ( 14);R2S: NEXT X 
350 IF LEN (N1S)>6 THEN N1S* LEFTS 
(N1S,6) 

360 IF LEN (N2S) >6 THEN N2S= LEFTS 
(N2S,6) 

370 PRINT "CWHITE3" TAB( 14)N1S; 

TAB( 21) N2S " C HOME 3 " 

380 FOR X=1 TO 2: FOR Y*1 TO 2 
: DS ( X , Y) *" CHQME3 CDQWN 213" 

: NEXT Y,X 

390 JS*"C HOME 3 CDOWN 153" 

400 RS (1,1)*" CRIGHT 163" 

410 RS (1,2) =RS (1,1) +" CRIGHT 23" 

:RS<2 f 1)=RS( 1,1)+" CRIGHT 63" 

:RS (2,2) *RS (2,1) + " CRIGHT 23" 

470 Pxl • r* l 

430 FOR X*1 TO 2: FOR Y*1 TO 2 

: PRINT DS(X,Y) ;RS(X,Y) ; " CRVS0N3 
CMED.GRAY3H": NEXT Y,X 
440 F2*0s IF LEN (DS(2,1))<2 AND LEN 
(DS(2,2))<2 THEN F2-1 
450 F1*0: IF LEN (DSC 1,1)) <2 AND LEN 
(DS ( 1 ,2) ) <2 THEN Fl=l 
460 IF Fl=l OR F2*l THEN 740 
470 PRINT "CHQME3": PRINT "CWHITE3 
PLAYER"P:D1* INT ( RND (8)*6)+l 
:D2= INT ( RND (4)*6)+l 
480 PRINT : PRINT 
490 FOR X*1 TO 3: PRINT "CSPACE 23 
"KS (D1 , X) : NEXT X: PRINT : PRINT 
500 FOR X=1 TO 3: PRINT "CSPACE 23 
"KS (D2, X) : NEXT X: PRINT : PRINT 
510 D=D1+D2 

520 PRINT JSj "CWHITE3H0W MANY" 

: PRINT "CAR # 1" 
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530 INPUT Q* 

540 Q= VAL <Q*> s IF Q>D THEN GND 
550 IF Q=0 THEN 600 
560 PRINT D*(P,1) ;R*(P,1) ;"ERVS0N3 
E MED. GRAY 3 " 

570 D$=D*<P,1>: IF LEN (D$XQ+1 THEN 
Q* LEN <D*)-1 

580 D$* LEFT* <D*, LEN (D*)-Q> 
sD*(P,l)*D* 

590 PRINT D*(P,l>sR*(P,l>;"ERVSaN3 
EMED.GRAY3H" 

600 D=D-Q 

610 PRINT J*;: FOR X=1 TO 3 

s PRINT "ESPACE 73": NEXT X 
620 PRINT J*; "CWHITE3H0W MANY” 

3 PRINT “CAR # 2” 

630 INPUT Q* 

640 Q= VAL (Q*> : IF Q>D THEN Q=D 
650 IF GNO THEN 700 
660 PRINT D*(P,2> ;R*(P,2) ; "CRVSQN3 
C MED. GRAY 3 ” 

670 D*=D*<P,2): IF LEN <D*KQ+1 THEN 
Q= LEN <D*)~1 

680 D** LEFT* <D*, LEN <D*)-Q) 
:D*(P,2)=D* 

690 PRINT D*<P,2);R*<P,2>s"ERVS0N3 
C MED. GRAY 3 H" 

700 FOR T*0 TO 999: NEXT T 
710 PRINT " E HOME 3 " s FOR X-l TO 18 
s PRINT "ESPACE 83 NEXT X 
720 IF P*1 THEN P=2: GOTO 470 
730 P=l: GOTO 440 
740 PRINT ” ECLR3 EWHITE3 ” 

750 IF Fl*l AND F2=l THEN PRINT Nl*" 
AND "N2*" TIED!”: GOTO 780 
760 IF Fl=l THEN PRINT Nl*" WINS!" 

770 IF F2=l THEN PRINT N2*" WINS!" 

780 PRINT s PRINT s INPUT "PLAY 
AGAIN" ;Q* 

790 IF LEFT* <Q.*,1>*"Y" THEN 120 
800 DATA "ERVSON 3 ESPACE 3 3", "ERVSON 3 
Q "," ERVSON 3 ESPACE 33" , "ERVSQN3Q 
ESPACE 2 3"," ERVSON 3 ESP ACE 33"," 
ERVS0N3 ESPACE 23Q" 

810 DATA "ERVS0N3Q ESPACE 23","ERVSON3 
Q ERVSON 3 ESPACE 23Q" , "ERVSON 3 
Q Q"," ERVSON 3 ESPACE 33" , " ERVS0N3Q 
Q" 

820 DATA "ERVSON 3 Q Q" , " ERVSON 3 Q 

", " ERVS0N3Q Q" , " ERVSON 3 QQQ" , " 

E RVSON 3 E SPACE 3 3 " , " E RVSON 3 QQQ " 
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Alien 

Here’s your chance to be the alien! From your space capsule, watch Earth come into view. 
Choose your options carefully. Will you invade or come in peace? 


100 REM ALIEN 
110 POKE 53281,0 

120 PRINT " [ CLR 3 [ WHITE 3 COMMUNICATION 
s"s PRINT s PRINT 

130 PRINT TAB< 4 > " [ BLU 3 [ RVSON 3 C SPACE 243 

•I 

140 PRINT TAB< 4) *’ [BLU3 [RV50N3 

[ R VSOFF 3 [ WH I TE 3 [ SPACE 23. [SPACE 63 
.[SPACE 63. [SPACE 33. [BLU 3 
[RVSON 3 « 

150 PRINT TAB( 4) "[BLU 3 [RVSON 3 

[ R VSOFF 3 [ WH I TE 3 [ SPACE 43. [SPACE 93 
.[SPACE 33. [SPACE 33 [BLU] [RVS0N3 
[ R VSOFF 3 [ WH I TE 3 [ SPACE 2 3 ON 
BOARD" 

160 PRINT TABC 4) "[BLU3[RVSON3 

[RVS0FF3 [WHITE] .[SPACE 73[RVS0N3 
v[SPACE 23c [RVS0FF3 [SPACE 73. 

[BLU 3 [RVSON 3 [RVSOFF3[WHITE3 
[SPACE 23SYSTEMS:" 

MORE-* 
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170 PRINT TAB( 4> "CBLU3CRVSON3 

C RVSOFF 3 C SPACE 7 3 C LT . BLU 3 C RVSON 3 v 
C RVSOFF 3 £C SPACE 23±CRVSON3 
c C R VSOFF 3 C SPACE 7 3 C BLU 3 C RVSON 3 

ISO PRINT TAB ( 4> 11 1 BLU 3 1 RVSON 3 

C RVSOFF 3 C WH I TE 3 C SPACE 23. C SPACE 33 
CLT . BLU 3 C RVSON 3 k C SPACE 2 3 C RVSOFF 3 
CWHITE3++CLT . BLU3 bdCWHITE3+ 

CLT. BLU 3 k . C SPACE 33 . CBLU3 CRVSQN3 

•I 

190 PRINT TAB< 4) " CBLU3 CRV50N3 

C RVSOFF 3 C SPACE 63 CLT. BLU3 CRVS0N3 
C WH I TE 3 ±+ C LT . BLU 3 1_C RVSOFF 3 
i£C RVSON 3 v C WH I TE 3 +± C RVSOFF 3 
C SPACE 63CBLU3CRVSON3 " 

200 PRINT TAB( 4) " C BLU 3 C RVSON 3 

C RVSOFF 3 C WH I TE 3 C SPACE 23..CSPACE 23 
CLT . BLU 3 C RVSON 3 k CWHITE3++ 

C RVSOFF 3 + C LT . BLU 3 c C RVSON 3 C WH I TE 3 
+ CLT.BLU3 CRVSOFF3kCWHITE3 C SPACE 33 
.C SPACE 23 CBLU3 CRVS0N3 " 

210 PRINT TAB( 4) " CBLU3 CRVS0N3 

C RVSOFF 3 C SPACE 7 3 C LT . BLU 3 C RVSON 3 f 
C SPACE 23 C RVSOFF 3 CWHITE3 + 

CLT ■ BLU3d CRVS0N3 d C RVSOFF 3 C SPACE 73 
CBLU3CRVSON3 " 

220 PRINT TAB < 4) " CBLU3 CRVS0N3 
C R VSOFF 3 C WHITE 3 . C SPACE 23. 

. C SPACE 2 3 C LT . BLU 3 C RVSON 3 i, 

C WH I TE 3 ++ C LT . BLU 3 1C RVSOFF 3 C WH I TE 3 

C SPACE 43. C SPACE 43 C BLU 3 C RVSON 3 
<1 

230 PRINT TAB < 4) " CBLU3 CRVS0N3 

C RVSOFF 3CWH I TE3CSPACE 33. C SPACE 33 
. C SPACE 43. C SPACE 43. C SPACE 23. 

C BLU 3 C RVSON 3 " 

240 PRINT TAB< 4) " C BLU 3 C RVSON 3 
C RVSOFF 3 C WHITE 3 C SPACE 23. . 

C SPACE 23. C SPACE 23. C SPACE 53. 

C SPACE 53 CBLU3 CRVS0N3 " 

250 PRINT TAB ( 4) "C BLU 3 C RVSON 3 C SPACE 243 
”s PRINT 

260 PRINT " C WH I TE 3 ROCKET ORIENTATION 
s 11 1 PRINT 

270 PRINT ” C RVSON 3 C SPACE 33FCRVSOFF3 
C SPACE 2 3 SPEED: " 

280 PRINT " C RVSON 3 CRED3 CWHITE3 
UC RVSOFF 3" 

290 PRINT " C RVSON 3 CRED3 CWHITE3 

E C RVSOFF 3 C SPACE 2 3 WARP DRIVE:" 

: PRINT " C RVSON 3 CRED3 CWHITE3 
LCRVSQFF3 ” 


300 PRINT ” CRVS0N3 CRED3 [WHITE 3 
[SPACE 2 3 [ R VSQFF 3 [ SPACE 2 3 ALERT 
STATUS: " 

310 01$*" C HOME 3 [DOWN 173" 

:D2$*D1$+"[D0WN 23" 

: D3$=D2$+" CDQWN 23" 

: D4$ =D3*+ " C DOWN 2 3 " 

320 R$=" [RIGHT 203 " s K$=" [HOME] [RIGHT 153 

II 

330 S$*"[H0ME3[D0WN 83"+R$+" [RIGHT 103 

II 

340 B$*"[ SPACE 253 ":B1$«"[ SPACE 93" 

350 PRINT "C HOME 3" 

360 PRINT D1$;R$; "EARTH" 

370 PRINT D2$;R$; "SUBLIGHT" 

380 PRINT D3$; R$; "OFF" 

390 PRINT D4$sR$; "CSRN3GREEN" 

400 PRINT S$; "C WHITE 3 EARTH ON" 

: PRINT S$; "CDQWN 3 MON I TOR. " 

410 FOR T*i TO 2000: NEXT T 
420 PRINT K$;B$: PRINT S*;B1$ 

: PRINT S$;"CD0WN3"sBl$ 

430 PRINT S$;"A> INVADE" 

440 PRINT S$; " CDQWN3B) FLEE" 

450 PRINT S$;"[DQWN 230 PEACE" 

460 PRINT K$; "WHY DO YOU COME 
(LETTER)?" 

470 GET C$: IF C$«"" THEN 470 
480 IF C$*"A" THEN 520 

490 IF C$*"B" THEN 990 

500 IF C$«"C" THEN 1560 

510 GOTO 470 

520 PRINT K$;B$: PRINT K$; "WOULD 
YOU RECONSIDER ?" 

530 PRINT S$;B1$: PRINT S$; "CD0WN3"s 
Bl$: PRINT S$; " [DOWN 23"jBl$ 

540 PRINT S$ $ “ [ R VSON 3 Y [ R VSOFF 3 YES" 

: PRINT S$; " CDQWN 3 [RVSQN3N 
[R VSOFF 3 NO" 

550 GET Q$: IF Q$=" " THEN 550 
560 IF Q$»"Y" THEN 420 
570 PRINT K$;"WE MUST DEFEND 
OURSELVES ! " 

580 30*54272: FOR L»0 TO 24 
: POKE SQ+L,0: NEXT L 
: POKE SO+14,5: POKE SO+18,16 
590 POKE S0+3,l: POKE SO+24,143 
: POKE SQ+6,240: POKE SO+4,65 
600 FOR X*0 TO 99: PRINT D4$iR$;B$" 

C HOME 3": POKE SO+24,143 
610 IF INT <X/10>/2* INT < INT 
<X/10>/2> THEN 630 
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Alteration— Add sound when the earthlings 
shoot at you, line 650. 


Alteration— Change the probability of being 
destroyed by changing line 730. For example, 

IF RND(8)<.5 AND S> 3 THEN 960 will 
increase your chance of destruction. 


Alteration— Change the probability of Earth 
surrendering by changing A in line 910. For 
example, IF A> .Swill increase the probability 
that Earth would surrender. 


620 PRINT D4t}Rt} "CRVSON3CRED3CSPAGE 23 
CWHITE3RED ALERT! C RED 3 E SPACE 23 
C WH I TE 3 C RVSOFF 3 C HOME 3 " 

: POKE SQ+24,0 

630 POKE SO, 23: POKE S0+l,43 
640 NEXT X: POKE S0+24,0 
650 PRINT Kt}Bt: PRINT Kt} "THEY 
ARE FIRING!" 

660 PRINT St} Bit: PRINT St} "CD0WN3"} 
Bit: PRINT St" CDQWN 23"} Bit 
670 PRINT St}"A> SHIELD” 

s PRINT St} "EDOWN3B) FLEE" 

680 GET Qt: IF Qt= H " THEN 680 
690 IF Qt="A" THEN 720 
700 IF Qt*"B" THEN 990 
710 GOTO 680 
720 S=S+1 

730 IF RND (8X.4 AND S>3 THEN 960 
740 PRINT Kt}Bt: PRINT Kt; "SHIELD 
INTACT" 

750 FOR T=1 TO 1500s NEXT T 

760 PRINT St} Bit: PRINT St} "CD0WN3"} 

Bit 

770 PRINT St} "A) ATTACK" 

s PRINT St} " CDQWN3B) FLEE" 
s PRINT St} "CDQWN 230 PEACE" 

780 PRINT Kt}Bts PRINT Kt} "WHAT 
NOW ?" 

790 GET Qts IF Qt=" " THEN 790 
800 IF Qt*"A" THEN 840 

810 IF Qt="B" THEN 990 

820 IF Qt“"C" THEN 1560 

830 GOTO 790 

840 PRINT Kt}Bt: PRINT Kt} "WHICH 
CITY"}: INPUT Nt 
850 PRINT Kt} Bt 
860 A* RND (8) 

870 IF AC. 3 THEN PRINT Kt} "ATTACK 
FAILED": GOTO 890 
880 PRINT Kt} Nt" DESTROYED!" 

890 FOR T*1 TO 1500: NEXT T 
900 PRINT Kt} Bt 

910 IF A>. 95 THEN PRINT Kt" EARTH 
SURRENDERS! YOU WIN!": STOP 
920 IF A >.05 THEN 570 
930 PRINT "C HOME 3 1 CANNOT LET YOU 
KILL INNOCENTS! YOUR" 

940 PRINT "LIFE SUPPORT WAS TURNED 
OFF. YOU LOSE!" 

950 STOP 

960 GOSUB 1620: PRINT "C HOME 3 YOUR 
SHIELDS DID NOT HOLD OUT!" 

970 PRINT TAB< 11)}"*** YOU LOSE! 

***" 
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980 STOP 

990 PRINT S$;B1$: PRINT S$;"CD0WN3"; 

Bl*s PRINT £$;" CDQWN 23";B1$ 

1000 PRINT K$;B$ 

1010 PRINT "CH0ME3CD0WN 43" 

1020 PRINT TAB( 4) " CBLU3 CRV50N3 

C RVSOFF 3 C WH I TE 3 C SPACE 43. CSPACE 63 
. [SPACE 53. CSPACE 23. CBLU3 
CRVS0N3 " 

1030 PRINT TAB< 4) " CBLU3 CRVS0N3 
CRVSQFF3 CWHITE3 .CSPACE 33. 

CSPACE 33. .CSPACE 43. .CSPACE 23 
. CBLU3CRVSQN3 " 

1040 PRINT TAB< 4> "CBLU3CRVSON3 

C RVSOFF 3 C WHITE 3 CSPACE 43. CSPACE 23 
.CSPACE 23. CSPACE 43. CSPACE 23. 

. CBLU3CRVSON3 " 

1050 PRINT TAB ( 4) "CBLU3CRVSON3 
C RVSOFF 3 C WHITE 3 .CSPACE 63. 

CSPACE 53... .CSPACE 33CBLU3 
CRVS0N3 " 

1060 PRINT TAB( 4) " CBLU3 CRVS0N3 
C R VSOFF 3 C WHITE 3. CSPACE 23. 

CSPACE 73. CSPACE 33. CSPACE 33. 
CSPACE 23 CBLU3 CRVS0N3 " 

1070 PRINT TAB< 4) " CBLU3 CRVSQN3 

C R VSOFF 3 C WHITE 3 CSPACE 23. CSPACE 33 
.CSPACE 23. CSPACE 33. CSPACE 23. 
CSPACE 33. CBLU3 CRVS0N3 " 

1080 PRINT TAB< 4) "CBLU3CRVSON3 
CRVSOFF3CWHITE3. CSPACE 63. 

CSPACE 33. CSPACE 73. CSPACE 23 
CBLU3CRVSON3 « 

1090 PRINT TAB < 4) " CBLU3 CRVS0N3 

CRVSOFF3CWHITE3 CSPACE 33. CSPACE 23 
.CSPACE 73. .CSPACE 33..CBLU3 
CRVS0N3 " 

1100 PRINT TAB ( 4) "CBLU3CRVSON3 

C RVSOFF 3 C WHITE 3 ..CSPACE 23. 

CSPACE 23. .CSPACE 23. CSPACE 33. 
.CSPACE 23 CBLU3 CRVS0N3 " 

1110 PRINT TAB( 4) " CBLU3 CRV50N3 

CRVSQFF3 CWHITE3 . . . .CSPACE 23. 
CSPACE 63. CSPACE 53 CBLU3 CRVS0N3 

II 

1120 PRINT K#; "C WHITE 3 ENTER X 
COORDINATE"; s INPUT X* 

1130 X- VAL (X$> 

1140 PRINT K$;B$ 

1150 PRINT K$; "ENTER Y COORDINATE"; 

s INPUT Y$ 

1160 Y* VAL <Y$> 

1170 PRINT K*;B* . 
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Alteration— Change the appearance of the 
planet Omega by changing PRINT statements 
in lines 1340-1440. 


1180 PRINT K^j "PRESS 'W' TO WARP 
OUT" 

1190 GET Q$s IF Q$<>"W" THEN 1190 
1200 PRINT Dl$;R$s " HYPERSPACE " 

1210 PRINT D3$;R$; "ONCSPACE 21" 

1220 PRINT D4$;R$; "GREEN [ SPACE 103 
[ HOME 3" 

1230 PRINT "[HOME 3 [DOWN 33" 
s FOR J*l TO 11 

1240 PRINT TAB( 4) "CBLU3CRVSON3 

[ RVSOFF 3 [ WH I TE 3 **************** 
****** C BLU 3 [ RVSON 3 " 

1250 NEXT J 

1260 FOR W*0 TO 9: FOR T*1 TO 200 
s NEXT T 

1270 PRINT D2$;R$; "CWHITE3WARP " 

STR$ <W) +" C SPACE 53" 

1280 NEXT W 

1290 FOR W=9 TO 0 STEP -1 

: FOR T=1 TO 200: NEXT T 
1300 PRINT D2$;R$s"CWHITE3WARP " 

STR$ <W>+" [SPACE 53" 

1310 NEXT W 

1320 IF INT ( RND <7)*20)*Y AND INT < 
RND (8)*20)*X THEN 1530 
1330 PRINT " C HOME 3 C DOWN 33" 

1340 PRINT TAB < 4) "CBLU3CRVSON3 

[ RVSOFF 3 [ WH I TE 3 [ SPACE 23 . [SPACE 63 
. C SPACE 63. C SPACE 33. [BLU 3 
[RVSON 3 " 

1350 PRINT TAB< 4) " C BLU 3 C RVSON 3 

[RVSOFF 3 [WHITE 3 [SPACE 43. [SPACE 93 
. C SPACE 33. [SPACE 33 CBLU3 [RVSON 3 
[RVSOFF 3" 

1360 PRINT TAB< 4) " C BLU 3 C RVSON 3 

[RVSOFF 3 [WHITE 3 . C SPACE 73CRED3 
[RVSON 3 vt SPACE 23cCRVSOFF3 C SPACE 73 
. C BLU 3 C RVSON 3 [RVSOFF 3" 

1370 PRINT TAB< 4) "CBLU3 CRVS0N3 

C RVSOFF 3 [ SPACE 7 3 [ RED 3 [ RVSON 3 v 
[RVSOFF 3 [SPACE 33+CRVSON3 c 
[RVSOFF 3 [ SPACE 73 CBLU3 CRVS0N3 

II 

1380 PRINT TAB< 4) " CBLU3 CRVS0N3 

C RVSOFF 3 [WHITE 3 [SPACE 23. [SPACE 33 
[RED3 [RVS0N3k [SPACE 23 C RVSOFF 3 
[YEL3++[RED3 [SPACE 23k[YEL3+k 
[WHITE3 .[SPACE 33 . [BLU3 [RVS0N3 

II 

1390 PRINT TAB< 4) "[BLU3[RVSON3 

[ RVSOFF 3 C SPACE 6 3 [ RED 3 [ RVSON 3 
[YEL3 + [RED3b [RVSOFF 3 ii_[RVS0N3v 
CYEL3^[ RVSOFF 3 [ SPACE 6 3 [ BLU 3 
[RVSON 3 " 
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1400 PRINT TAB( 4) " CBLU3 CRVS0N3 
CRVS0FF3 C WH I TE I C SPACE 23 . . 

CSPACE 2 3 C RED 3 C RVSON 3 C SPACE 23 
CYEL3d“CRVSOFF3±CRED3 C RVSON 3 
C YEL3+CRED3 CSPACE 23CRVSOFF3 
C WH I TE 3 C SPACE 33. CSPACE 23CBLU3 
C RVSON 3 " 

1410 PRINT TAB< 4) " CBLU3 CRVS0N3 

C RVSOFF 3 C WHITE 3 CSPACE 23. CSPACE 33 
CRED3CRVSON3k C YEL 3 +++ C RED 3 
C RVSON 3 CYEL3+CRED3 C RVSOFF 3k 
CWHITE3 CSPACE 33. CSPACE 23CBLU3 
C RVSON 3 " 

1420 PRINT TAB ( 4) " CBLU3CRVSON3 

CRVS0FF3 CSPACE 73CRED3CRVSON3f 
CSPACE 23 C RVSOFF 3 CYEL3+CRED3v 
C RVSON 3 dC RVSOFF 3 CSPACE 73CBLU3 
C RVSON 3 " 

1430 PRINT TAB ( 4) "CBLU3CRVSON3 
C RVSOFF 3 C WHITE 3 .CSPACE 23. 

.CSPACE 23CRED3CRVSON3i CYEL3+ 

C RED 3 i_C RVSOFF 3 C WHITE 3 CSPACE 43. 
CSPACE 43 CBLU3 CRVS0N3 " 

1440 PRINT TAB ( 4) " CBLU3 CRVSQN3 

C RVSOFF 3 C WHITE 3 CSPACE 33. CSPACE 33 
.CSPACE 43. CSPACE 43. CSPACE 23. 
CBLU3CRVSON3 " 

1450 PRINT D1$;R$; 11 C WHITE 3 OMEGA 
SYSTEM” 

1460 PRINT D2$;R$$ ” SUBLIGHT CSPACE 43” 
1470 PRINT D3$; R$; "OFF” 

1480 PRINT D4$; R$; " CSRN3GREEN" 

1490 PRINT S$; "C WHITE 3 OMEGA ON” 
s PRINT S$; " C DOWN 3 MON I TOR. ” 

1500 PRINT K$;B$ 

1510 PRINT K#; "WELCOME TO OMEGA 
5. ” 

1520 PRINT "SAFE ESCAPE !”: STOP 
1530 GOSUB 1620 

1540 PRINT s PRINT s PRINT "CWHITE3 
YOU HIT A STAR! YOU LOSE!" 

1550 STOP 
1560 PRINT K$;B$ 

1570 PRINT K^j "WELCOME TO PLANET 
EARTH. " 

1580 FOR X*1 TO 6 

1590 PRINT K*s "CD0WN3";B$ 

s FOR T-l TO 200s NEXT T 
1600 PRINT K$; " CD0WN3 " $ " CRVS0N3 YOU 
WIN": FOR T*1 TO 200: NEXT T 
1610 NEXT X; STOP 


MORE-* 
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1620 N=53281s POKE N-1,2: POKE 53281,7 
: PRINT 11 CCLR3 CWHITE3 CDQbJN 83 
[SPACE 123***DESTROYED***“ 

1630 S=54272s FOR L*S TO S+24 
s POKE L,Os NEXT 
1640 POKE S+5, 15: POKE S+6,15 
s POKE S+24, 15 
1650 POKE S+1,5: POKE S,235 

s POKE S+4,129: POKE S+4,128 
1660 FOR X*1 TO 99x IF ( PEEK <N> 

AND 15) =7 THEN POKE N,2 
: SOTO 1680 
1670 POKE N,7 

1680 FOR T*1 TO 44s NEXT T,X 
1690 POKE N-l , 14s POKE N,6 
1700 RETURN 


Hangman 


Hangman 

Sharpen your word skills by playing this classic game with your computer. The computer will 
think of a word. You guess it, letter by letter. A correct letter will be inserted into the appropriate 
space. Each wrong letter adds to the hangman. You are allowed 12 wrong guesses before being 
hung. When the hangman is complete, the whole word is displayed. The computer gives you 10 
words. Your score is based on the length of correctly identified words and the number of missed 
letters. 



100 REM HANGMAN 

110 POKE 53281,0: PRINT "CCLR3CWHITE3 
THE COMPUTER THINKS OF A WORD. 

YOU TRY C SPACE 3 3 TO GUESS IT." 

120 PRINT "TWELVE WRONG GUESSES 

BUILD THE HANGMAN." 

130 PRINT : PRINT "HIT ANY KEY" 

140 GET Q$: IF Q$*"" THEN 140 

150 SE=0: FOR PL=1 TO 10 

160 PRINT : PRINT "ECLR3W0RD #"PL 

170 CT*0:NW=100 

180 READ W$: IF CT>24 AND RND 

(8X1/NW THEN RESTORE : GOTO 210 
190 CT=CT+1: IF W$="END" THEN 
RESTORE : GOTO 170 
200 GOTO 180 
210 G$=" " 

220 PRINT "CGLR3": PRINT : PRINT 

: PRINT : PRINT : PRINT : PRINT 
225 FOR X =55296 TO 56295: POKE X,l: 
NEXT X 

230 PRINT "C SPACE 103 iiiii " 

240 PRINT " CSPACE 103-CSPACE 33CRVSQN3 

II 

250 PRINT "ESP ACE 103-CSPACE 33CRVSON3 

II 

260 FOR A=1 TO 7: PRINT TAB< 14)" 
CRVS0N3 ": NEXT A 

270 FOR A=1 TO 5: PRINT "CSPACE 43 
ERVSQN3 C SPACE 73q»wCSPACE 53" 

: NEXT A 

280 PRINT " CHQME3 CRIGHT3 CD0WN3 " ; 

: FOR X=1 TO LEN <W$) : PRINT "-"5 
: NEXT 
290 C=0: 1=0 

300 PRINT "CH0ME3CD0WN 23" 

: PRINT "ENTER A LETTER:" 

310 POKE 198,0 

320 GET L$: IF L$=" " THEN 320 

330 PRINT "CH0ME3CD0WN 33 CSPACE 173" 

340 K=0: FOR A=1 TO LEN <G$> 

: IF L$* MID$ (G$, A, 1 ) THEN K=1 
350 NEXT A: IF K=1 THEN 300 

MORE- 
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Alteration— A simple vocabulary of 
commonly used English words is in DATA 
statements 560 to 600. You can replace or 
extend this vocabulary by adding or deleting 
DATA statements. The last word in the last 
DATA statement must be END. It is used as a 
marker to identify the end of the list. 

Depending on the average length of the 
words, you can store a few thousand words in a 
Commodore 64. If you increase the list to 
more than 100 words, increase the value of 
NW in line 170 to equal the number of words 
in the list 

Alteration— Design the word list for a certain 
user. For example, make a list of foreign words 
for the person learning a foreign language. Or, 
make a list of simple words for a child learning 
how to spell. 


360 G#=G#+L# 

370 PRINT "C HOME K DOWN 43 ";G# 

380 F-l: FOR X=1 TO LEN <W#> 

390 IF L#= MID# <W#,X,1> THEN PRINT " 
C HOME 3 " : PRINT TAB ( X);L#;:F=0 
:C=C+1 
400 NEXT X 

410 IF C= LEN (W#> THEN 470 
420 IF F-0 THEN 300 
430 1=1+1: READ M,L: POKE L,M 
: POKE L+30720,2 
440 IF I< 12 THEN 300 
450 PRINT " CHQME3": PRINT "YOU'RE 
HUNG C SPACE 23": PRINT "THE 
WORD WAS:": PRINT W# 

460 GOTO 490 

470 PRINT " C HOME 3 [RIGHT 53 
**SUCCESS**" 

480 SE=SE+5* LEN <W#)-I: PRINT 
: PRINT "YOUR SCORE ="SE 
490 FOR T=1 TO 4000: NEXT 
500 NEXT PL 
510 RESTORE 

520 PRINT "CCLR3": PRINT "YOUR FINAL 
SCORE* "SE: PRINT 
530 INPUT "PLAY AGAIN <Y/N)";Q# 

: IF LEFT# <Q#, 11>="Y" THEN 100 
540 DATA 87,1434,102,1474,102,1514, 
78,1473,77,1475 

550 DATA 101,1513,103,1515,160,1554, 
221 , 1594,221 , 1634,108,1633, 123, 
1635 

560 DATA THE, AND, THAT, FOR, WITH, WAS, 
HIS , NOT , BUT , HAVE , YOU , WHICH , ARE , 
HER, HAD, FROM, THIS 
570 DATA THEY, THEIR, SHE, HAS, WERE, 

BEEN , H I M , ONE , SO , W I LL , THERE , WHO , 
WHEN , WHAT , YOUR , MORE 
580 DATA WOULD, THEM, SOME, THAN, MAY, 
UPON , I TS , OUT , I NTO , OUR , THESE , MAN , 
LIKE, SHALL , GREAT , NOW 
590 DATA SUCH, SHOULD, OTHER, ONLY, ANY, 
THEN , ABOUT , THOSE , CAN , MADE , WELL 
600 DATA OLD, MUST, SAID, TIME, EVEN, NEW, 
COULD , VERY , MUCH , OWN , MOST , M I GHT , 

F I RST , AFTER , YET , TWO 
610 DATA END 
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Dr. Sigmund 

Find out more about yourself by having the great psychiatrist Dr. Sigmund analyze you. Once on 
the couch, you are shown computer-generated ink blots. You enter your first impression about 
what you see and get instantly analyzed in the classic fashion. You get 14 analyses per visit. There 
are no scores and no losers. This is a great game for a party. 


100 

Alteration— Change the ink-blot patterns by 110 

changing the graphics symbols in string 
variable K$, line 1 10. To simplify the pattern, 
add more spaces to K$. 

130 

140 

150 

160 

170 

180 

190 

200 


REM SIGMUND 

C*=" CBLK3 C WHITE! ERED3 CCYN1 CPUR3 
EGRN3 CBLU3CYEL3" s K$*" Cpoundl 
Qi-k **8 POKE 53280,6s POKE 53281,0 
PRINT " CCLR3 " : PRINT “HELLO, 

I AM ANNA, SECRETARY TO DR. “ 

PRINT “SIGMUND. IS THIS YOUR 
FIRST 

INPUT "VISIT” ;A*s PRINT 
s IF LEFT* (A*,1)="N“ THEN 270 
INPUT "WHAT IS YOUR NAME";B* 

: PRINT 

PRINT "YOU ARE IN LUCK "B*"." 

: PRINT "DR. SIGMUND WILL SEE 
YOU NOW." 

FOR T*1 TO 4000s NEXT T 
s PRINT " ECLRD " 

PRINT "PLEASE, MAKE YOURSELF 
COMFORTABLE ONESPACE 43THE 
COUCH. "s PRINT 
PRINT "I SEE THAT YOU ARE A 
LITTLE BIT"s PRINT "NERVOUS, 

Ilg^H II 

PRINT* "NOW TRY TO RELAX." 
s FOR T*1 TO 4000s NEXT Ts PRINT 

MORE- 


Dr. Sigmund 


Alteration— Change the number of questions, 
variable S, in line 260. 


Alteration— Change any word from the 
analyst’s list and the corresponding 
interpretation. For example, change SPIDER 
in lines 320 and 360 to a friend’s name and 
enter something about that person in lines 520 
and 530. Customize the program to suit your 
purposes. 


210 PRINT "I HAVE SOME PRETTY 
PICTURES TO SHOW YOU." 

220 PRINT "JUST LET YOUR MIND GO 
TO REST. LOOK AT C SPACE 2 3 THE 
PICTURES AND PICK FROM" 

230 PRINT "THE LIST WHAT" 

s PRINT "IT REMINDS YOU OF. 

IF SOMETH I N6" 

240 PRINT "ELSE, JUST ENTER THAT.” 

: FOR T=1 TO 7000: NEXT T:S=0 
250 FOR T=1 TO 5000: NEXT T 
260 S=S+ 1 : IF S=14 THEN 740 
270 PRINT “CCLR30K, HERE IS A PICTURE 
:": PRINT 

280 FOR X=0 TO 9: PRINT TAB ( 6); 

: FOR Y*1 TO 20: C= INT ( RND 
<7>*8+l>: PRINT MID# (C#,C,l)s 
290 K* INT ( RND (8) *6+1) 

: PRINT MID# (K#,K,1); 

300 NEXT Y: PRINT " ": NEXT X 
310 PRINT 

320 PRINT " [WHITE 3 [SPACE 33SPIDER 
C SPACE 3 3 MOTHER C SPACE 6 3 CAT" 

330 PRINT "C SPACE 3 3 SNAKE [ SPACE 43 
BUTTERFLY C SPACE 3 3 ROPE" 

340 PRINT "CSPACE 3 3 FATHER C SPACE 33 
RE INDEER [SPACE 4 3 FOOD” 

350 PRINT : INPUT 0#: PRINT ”[CLR3" 
360 IF 0#* "SPIDER" THEN 520 
370 IF 0#*" MOTHER" THEN 540 
380 IF 0#="CAT" THEN 560 
390 IF O#-" SNAKE" THEN 580 
400 IF 0#* " BUTTERFLY " THEN 600 
410 IF 0#="RQPE“ THEN 620 
420 IF 0#*" REINDEER" THEN 640 
430 IF 0#="F00D" THEN 660 
440 IF 0#*" FATHER" THEN 670 
450 IF 0#*" INK BLOT" THEN 680 
460 IF 0#* "FACE" THEN 700 
470 IF 0#*" CAMEL" THEN 720 
480 PRINT "TELL ME ABOUT YOUR 
CHILDHOOD.": INPUT P# 

490 PRINT " [CLR3GQ ON...": INPUT P# 

: PRINT "[CLR3HMMM. ..TELL ME 
MORE.": INPUT P# 

500 PRINT "[CLR3THAT IS ENOUGH FOR 
NOW. CALL ME TOMORROW ABOUT 
THIS." 

510 GOTO 250 

520 PRINT "OBVIOUSLY YOU FEEL 
ENTANGLED. THE" 
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530 PRINT "SPIDER IS A SYMBOL OF 
YOUR FEAR OF [SPACE 63 
FRUSTRATION. ”s SOTO 250 
540 PRINT "YOUR DEEP FEELINGS FOR 
YOUR MOTHER ARE" 

550 PRINT "ONLY NATURAL. DO NOT 

BE AFRAID TO LET [SPACE 3 3 THEM 
SHOW. "s GOTO 250 
560 PRINT "SOMEWHERE IN YOUR 

SUB-CONSCIOUS, [SPACE 8 3 YOU HAVE 

a PTfiR HF TATR " 

570 PRINT "YOU STARTLE WHEN ONE 

CROSSES YOUR PATH [SPACE 2 3 AT 
NIGHT."! GOTO 250 
580 PRINT "BEWARE THE SNAKE. YOU 

NEED TO CONTROL [SPACE 3 3 YOURSELF 
IN TENSE SITUATIONS." 

590 GOTO 250 

600 PRINT "THE BUTTERFLY SYMBOLIZES 
YOUR FREE [SPACE 63SPIRIT AND 
GREAT INNER JOY." 

610 PRINT "LET YOURSELF HAVE FUN." 

! GOTO 250 

620 PRINT "THE ROPE IS A SIGN OF 
THE STRONG SUPPORT YOU OFFER 
YOUR FRIENDS." 

630 PRINT "YOU HAVE GREAT INNER 
RESERVES."! GOTO 250 
640 PRINT "YOU ARE BLESSED WITH 

A CHILDLIKE LOVE [SPACE 3 3 FOR 
NATURE. YOUR HEART IS 
650 PRINT "PURE."! GOTO 250 
660 PRINT "EITHER YOU ARE HUNGRY 

OR YOU DESIRE TO [SPACE 2 3 FEED 
OTHERS.": GOTO 250 
670 PRINT "YOUR FEELINGS FOR YOUR 
FATHER MUST [SPACE 6 3 SOMEDAY 
BE EXPLORED."! GOTO 250 
680 PRINT "YOU ARE A REALIST. 

UNFORTUNATELY, YOU [SPACE 3 3 ARE 
WITHOUT IMAGINATION." 

690 GOTO 250 

700 PRINT "YOU ARE LIKE A NEWBORN 
put i n vnn app" 

710 PRINT "ATTRACTED TO FACES. YOU 
SEEK ACCEPTANCE AND LOVE." 
i GOTO 250 

720 PRINT "ONE HUMP OR TWO?" 

! PRINT "SERIOUSLY, YOU ARE 
IN A SPIRITUAL DESERT" 

730 PRINT "ALONE YOU CAN PREPARE 

TO REENTER THE [SPACE 4 3 WORLD. " 


! GOTO 250 


MORE-* 
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740 PRINT "ECLR3THANK YOU FOR COMING. 
I WILL SEE YOU E SPACE 43AGAIN 
E SPACE 23NEXT WEEK." 

750 PRINT "PLEASE LEAVE $50 ON THE 
TV." 
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Spatial Concepts 

This fun program is enjoyed by young children. It combines picture-making and learning the 
concepts of up, down, left, right and in. 

The child chooses from a list of objects: bird, child, duck and star. Then the child chooses where 
to place the object in the colorful castle and landscape displayed on the screen. The object can also 
be erased. 

The child should play along with an older person— especially if the child can’t read. Together 
they can create pictures and a story! 

100 REM SPATIAL CONCEPTS 
110 L$ < 1 ) =" C HOME 3 C DOWN 163CRIGHT 113" 
120 L$ (2) =L$ ( 1 ) +" CDQWN 43CRIGHT 183" 
130 L$ <3) =" C HOME 3 C DOWN 3 CRIGHT 163" 

140 L$ <4) =" CH0ME3 CDQWN 123CRIGHT 23" 
sL$<5)=L$<4)+"I:RIGHT 293" 
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150 PRINT "[CLR3"! PRINT TAB< 

12) "SPATIAL CONCEPTS"! PRINT 
s PRINT 

160 PRINT "WE ARE ABOUT TO PLAY 

A GAME TO LEARN UP, DOWN, LEFT, 
RIGHT AND IN." 

170 PRINT 

180 PRINT "YOU WILL SE A CASTLE 

WITH THE WORDS UP, DOWN, LEFT, 
RIGHT AND IN." 

190 PRINT 

200 PRINT "THESE WORDS ARE PLACES 
NEAR THE CASTLE [SPACE 2 3 THAT 
SHOW WHAT THE WORDS MEAN." 

210 PRINT i PRINT "AT THE BOTTOM 
UF THE SCREEN YOU WILL" 

220 PRINT "SEE THE NAMES OF THINGS 
TO PAINT WITH."! PRINT 
230 PRINT "YOU CAN USE THESE THINGS 
TO FIN ISHC SPACE 3 3 THE CASTLE 
PICTURE."! PRINT 
240 PRINT "PRESS ANY KEY TO 
CONTINUE."! PRINT 
250 GET Q$! IF Q$="" THEN 250 
260 PRINT "CCLR3": PRINT "I WILL 
ASK WHAT THING YOU WANT TO 
ADD" 

270 PRINT "TO THE PICTURE, AND YOU 
MUST ENTER ITSCSPACE 2 3 NAME. " 

! PRINT 

280 PRINT "THEN I WILL ASK YOU WHERE 
YOU WANT TO" 

290 PRINT "PUT THE THING NEAR THE 
CASTLE, AND YOU [SPACE 2 3 MUST 
TELL ME: UP, DOWN, LEFT"; 

300 PRINT ", RIGHT, OR IN."! PRINT 
310 PRINT "OK, LET US BEGIN..." 

! PRINT 

320 PRINT "PRESS ANY KEY TO START." 

! PRINT 

330 GET Q$! IF Q$=" " THEN 330 
340 FOR X*1 TO 5i READ T$(X)s NEXT X 
350 DATA BIRD, CHILD, DOG, STAR, ERASE 
360 FOR X=1 TO 5i READ W$(X)i NEXT X 
370 DATA IN, DOWN, UP, LEFT, RIGHT 
380 PRINT "[CLR3": PRINT : PRINT 
! PRINT 

390 FOR X=55B96 TO 56295! POKE X,5 
x NEXT X 

400 FOR X a =1624 TO 2023! POKE X,160 
! NEXT X 

410 POKE 53281,1! POKE 53280,6 
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Alteration— Change the castle design by 
altering lines 420-590. 



420 PRINT TAB< 14) " CMED. GRAY3 CRVSON 3 
CRVSOFF 3 CRVSON 3 CSPACE 33 
CRVSOFF3 CRVSON3 CRVSOFF3" 

430 PRINT TAB ( 14) " CRVSON 3 CSPACE 73 
CRVSOFF 3" 

440 PRINT TAB< 15) "CRVSON 3 CSPACE 53 
CRVSOFF] 11 

450 PRINT TAB< 15) "CRVSON 3 CSPACE 53 
CRVSOFF 3" 

460 PRINT TAB( 15) " CRVS0N3 CSPACE 21 
CBLK3 CMED.SRAY3 CSPACE 23CRVSQFF3 

II 

470 PRINT TAB( 9) "CRVSON 3 CSPACE 21 

CRVSOFF 3 CRVSON 3 CRVSOFF 3 CSPACE 21 
CRVS0N3 CSPACE 23CBLK3 C MED. GRAY 3 
CSPACE 23 CRVSQFF3 CSPACE 23 CRVSON 3 
CSPACE 23 CRVSOFF 3 CRVS0N3 CSPACE 21 
CRVSOFF 3" 

480 PRINT TAB( 9) "CRVSON 3 CSPACE 43 

CRVS0FF3 CSPACE 23 CRVS0N3 CSPACE 53 
CRVSOFF 3 CSPACE 33 CRVSON 3 CSPACE 33 
CRVSOFF 3" 

490 PRINT TAB( 9) "CRVS0N3 CSPACE 33 

CRVSOFF 3 CSPACE 33 CRVSON 3 CSPACE 53 
CRVSOFF 3 CSPACE 33CRVSON3 CBLK3 
C MED. GRAY 3 CRVSOFF 3" 

500 PRINT TAB( 9)"CRVS0N3 CBLK3 

CMED. GRAY 3 CSPACE 153CRVSOFF3" 

510 PRINT TAB ( 9) " CRVSON 3 CSPACE 173 
CRVSOFF 3" 

520 PRINT TAB< 9) " CRVS0N3 CSPACE 103 
CBLK3 CMED. GRAY 3 CSPACE 23CBLK3 
CMED. GRAY 3 CSPACE 33 CRVSOFF 3" 

530 PRINT TAB ( 9) " CRVSON 3 CSPACE 173 
CRVSOFF 3" 

540 PRINT TAB < 8) " CRVS0N3 CBLU3 

CMED. GRAY 3 CSPACE 23 CWHITE3 CSPACE 63 
CMED . GRAY 3 C SPACE 9 3 C BLU 3 
CMED. GRAY 3 CRVSOFF 3 " 

550 PRINT TAB< 7) " CRVSQN3 CBLU3 CSPACE 23 
CMED. GRAY 3 CSPACE 23 CWHITE3 CSPACE 61 
CMED. GRAY 3 CSPACE 93 CBLU3 CSPACE 23 
CRVSOFF] 11 

560 PRINT TAB< 6) "CRVSON 1C BLU 3 CSPACE 33 
CMED. GRAY 3 CSPACE 23 CWHITE3 CSPACE 61 
CMED. GRAY 3 CSPACE 91 CBLU3 CSPACE 33 
CRVSOFF 3" 

570 PRINT TAB( 7) "CRVSON3CBLU3 CSPACE 53 
CMED. GRAY 3 fC SPACE 33cCBLU3 CSPACE 113 

•I 

580 PRINT TAB < 8) "CRVSON3CBLU3 CSPACE 51 
CMED. GRAY 3 fC SPACE 33cCBLU3CSPACE 83 

MORE- 
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590 PRINT TAB< 20) "CRVS0N1C SPACE 51 
ERVSOFFI" s PRINT c PRINT 
600 PRINT " CBLKI CRIGHT 51BIRDCSPACE 21 
CHILDCSPACE 2 I DOG C SPACE 21STAR 
C SPACE 2 1 ERASE! HONE 1 " 

610 PRINT L$ < 1 ) 5 " CRVSONI CBLKI IN 

CRVS0FF3"* PRINT L$ (2) ; "CRVSQN1 
DOWN! HOME 3" 

620 PRINT L$(3) ; " CRVSON 1 UPC RVSQFF 3" 
s PRINT L# <4) ; " CRVSON 3 LEFT 
CRVS0FF1": PRINT L$<5> ; "CRVS0N3 
RIGHTCRVSQFF3 " 

630 PRINT " CH0ME3 CBLKI " ; 

: INPUT "PAINT WITH";P* 

640 PRINT " C HOME 1 C SPACE 201" 

650 FOR X»1 TQ 5: IF P$«T$(X> THEN 
670 

660 NEXT Xs GOTO 630 
670 PRINT "CH0ME3" ; : INPUT "PAINT 
WHERE"; W$ 

680 PRINT "C HOME 1C SPACE 281" 

690 FOR X*1 TO 5s IF W$*W$(X> THEN 
710 

700 NEXT Xs GOTO 670 

71rt ii r mu r TP 1 11 

720 IF W$="DOWN" THEN C$*"CGRN1" 

730 PRINT L$(X) ;C$; "CRVSON 1C SPACE 51" 

: PRINT L$<X) ; " C DOWN 1 CRVSON I 
C SPACE 51" s PRINT L$<X>; "CDOWN 21 
C RVSQN 1 C SPACE 5 1 C HOME 1 " 

740 C$*" CRVS0N1 CGRN1 " : IF W*<>"DOWN" 
THEN C$=" CBLKI" 

750 IF P$="STAR" THEN PRINT L$ < X > ; " 

CD0WN1 CRIGHT1 CBLKI*" 

760 IF P^*" CHILD" THEN PRINT L$(X>; 
C$;"CRIGHT3W"s PRINT L$(X);C$;" 
CDQWN3N±M": PRINT L$(X>;C$;" 

CDOWN 21CRIGHT1H" 

770 IF P$*"BIRD" THEN PRINT L*<X> ;C$; 

" PRINT L$(X) ;C$; "CDQWN3*+>" 
s PRINT L$(X) ;C$; "CDOWN 21 >" 

780 IF P$*"DOG" THEN PRINT L$(X);C$;" 
CDQWN1 Q N"s PRINT L$<X);C$;" 

CDOWN 21 luh" 

790 IF P$»" ERASE" THEN PRINT L$<X>»" 

C RVSON I C BLK I C DOWN I " ; W$ ( X ) 

800 GOTO 630 


Mind Reader 


Mind Reader 

Here’s a fun guessing game in which you and the computer take turns guessing numbers. The 
program begins with an animated man (you can see his lips move) asking for the user’s name. The 
name is used throughout the game. 

The user has five chances to guess a number between 1 and 20. The computer man helps by 
giving higher and lower clues. The user then chooses either to think of a number or let the 
computer man think of a number. The user enters a number between 1 and 5, and the computer 
man has one chance to guess the number. After this process is repeated five times, the computer 
man reports the score. 

100 REM MIND READER 
110 DIM W$<81),G$<5) 

120 FOR X=0 TO 81: READ W$<X>: NEXT 
130 FOR X*1 TO 5: READ G$<X>: NEXT 
140 L*® " C HOME 3 C DOWN 111CRIGHT 121" 
Alteration— Changing the value of TL in line 150 B$=" C SPACE 91":TL*250 

150 changes the speaking rate of the animated • POKE 5328 1,1 

man. Decreasing TL increases speed. 160 mi$*» CHOME 1 C DOWN 111 CRVSONlk 

C RVSQFF 1 C SPACE 2 1 Z RVSON 1 diiif 
C RVSQFF 1 k":M2$*" c£ c ooov k" 

170 M3$="i:HQMElCDaWN 111 CRVSONlk 
C RVSQFF 1 C SPACE 2 1 C BLK 1 C RVSON 1 
C SPACE 51 CRVS0FF1 k":M4$=" c± 
CRVSQNl i i i i i CRV5QFF1 k H 

MORE-* 
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180 PRINT "[CLR3[BLK3" 

190 PRINT " CSPACE 33 [RVS0N3v[SPACE 43 
PRINT " C SPACE 23[RVSQN3k 
[SPACE 2 3 diC RVSOFF 3 vb " 
s PRINT " d [RVSON 3 £[ RVSOFF 3 W 
[SPACE 23i_ b" 

200 PRINT * [ RVSQN 3 k [ R VSOFF 3 c vc 

v k": PRINT "d[RVSaN3i[RVSOFF3 
d [ RVSON 3 il R VSOFF 3 £d [ RVSON 3 i 
[RVSOFF 3 f k" 

210 PRINT " c [ RVSON 3 b [ R VSOFF 3 CCRVS0N3 
v [ RVSOFF 3 vc [ RVSON 3 v C RVSOFF 3 v 
k": PRINT " cf [SPACE 63[RVSON3k" 
s PRINT "[SPACE 23k [SPACE 33b 
[SPACE 23 [RVSON 3k" 

220 PRINT " [RVS0N3k [RVSOFF 3 [SPACE 43 
dv cf_": PRINT " [RVSON3k[RVSOFF3 
[SPACE 83k" 

230 PRINT " [RVSON3k[RVSOFF3 [SPACE 23 
[RV50N3di ii-f [ RVSOFF 3 k" 

: PRINT " cf cqqov k" 
s PRINT "[SPACE 23k [SPACE 63dv 
240 PRINT "[SPACE 23 cbiiiiiv " 

: PRINT "[SPACE 63 [RVSON 3 " 

250 PRINT "[SPACE 43 [RED 3 +++++ " 

i PRINT "[SPACE 43[BLK3k[RED3±±± 

[ BLK 3 [ RVSQN 3 k " : PRINT "[SPACE 43 
[ RVSON 3 c [ RED 3 +±+ [ BLK 3 v " 

260 PRINT "[SPACE 53 [CYN3 [RVS0N3 
[SPACE 33": PRINT "[SPACE 53 
[RVSON 3 [RVSOFF 3 [RVSON 3 " 

: PRINT "[SPACE 43 [BLK3 [RVS0N3 
[SPACE 23 [RVSOFF 3 [RVSON 3 [SPACE 23 

II 


Alteration— By changing M in line 320 to 
M=INT(RND(7)* 10)+1, you make the 
computer think of a number between 1 and 10, 
instead of 1 and 20. 


270 A=0: B=3: GOSUB 580 

280 PRINT L$; " [DOWN 33"s: INPUT m 

: PRINT L$$ "[DOWN 33"; "[SPACE 103 

tl 

290 FOR T=1 TO 2222: NEXT 
300 A*4:B*39: GOSUB 580 
310 FOR T=1 TO 2222: NEXT 
320 0=0: FOR G=1 TO 5:K*0 
:M* INT ( RND (8)*20)+l 
330 A=9:B*10: GOSUB 580: GOSUB 600 
:K*K+1 

340 A*11:B*11: GOSUB 580 
350 PRINT L$; " [DOWN 33";: INPUT 
:N* VAL <Q$) 

360 IF M>N THEN A=40:B=40: GOSUB 580 
370 IF M<N THEN A=41:B=41: GOSUB 580 
380 FOR T=1 TO 500: NEXT 

: PRINT L$; " [DOWN 33"; "[SPACE 53" 
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390 IF M=N THEN W*(4S)= STR* <K):A=42 
:B=49s GOSUB 580:0=0+1: GOTO 430 
400 IF K<5 THEN 330 
410 W*(54)= STR* <M) :A=50:B=54 
: GOSUB 580 

420 FOR T=1 TO 1111s NEXT T 

430 NEXT Gs FOR T=1 TO 1000s NEXT T 

440 W*(55)=N*:W* (58)* STR* < 100*0/5) 

: A=55:B=60: GOSUB 580 
450 A=61:B=61: GOSUB 580: A=27: B=39 
: GOSUB 580 
460 0=0 s FOR G=1 TO 5 
470 W*<64)=G*(G):A=62:B=67: GOSUB 580 
4S0 PRINT L*; "CDOWN 33”;: INPUT Q* 
sN= VAL <Q*): IF N<1 OR N>5 THEN 
PRINT L*; "CDOWN 33 " ; ” CSPACE 33" 
s GOTO 470 

490 M= INT < RND <8)*5)+l 
s FOR T=1 TO 900s NEXT 
s PRINT L*; "CDOWN 33"; "CSPACE 53" 
500 IF M=N THEN A=68:B=71: GOSUB 580 
s 0=0+1: GOTO 520 
510 A=72:B=74: GOSUB 580 
520 FOR T=1 TO 900: NEXT T,G 
530 FOR T=1 TO 1000: NEXT T:A=75:B=79 
:W*(77)= STRt (0*20): GOSUB 580 
540 FOR T=1 TO 1000: NEXT T:A=80:B=81 
: GOSUB 580 

550 PRINT L$; “CDOWN 33";: INPUT N$ 

: PRINT L$; "CDOWN 33"; "CSPACE 63" 
560 IF LEFT* <N*,1)="Y" THEN 180 
570 PRINT "CCLR3": END 
580 FOR X=A TO B: GOSUB 620 

: PRINT L$;B*: PRINT L*;W*(X) 

: FOR T=1 TO TL: NEXT T 
590 GOSUB 630: FOR T=1 TO TL 

: NEXT T,X: PRINT L*;B$: RETURN 
600 GOSUB 620: PRINT L*;B* 

: PRINT L*;G$(G): FOR T=1 TO TL 
: NEXT T 

610 GOSUB 630: FOR T=1 TO TL: NEXT T 
: PRINT L$;B$: RETURN 
620 PRINT Ml*: PRINT M2*: RETURN 
630 PRINT M3*: PRINT M4*: RETURN 
640 DATA HELLO, WHO, ARE, YOU?, YOU, ARE, 
ABOUT , TO , PLAY , GUESS , THE , NUMBER . 
650 DATA FIRST, I, WILL, THINK, OF, FIVE, 
NUMBERS , AND , YOU , W ILL , TRY , TO , 
GUESS, THEM. 

660 DATA LATER, YOU, WILL, THINK, OF, 
FIVE, NUMBERS , AND , I , W I LL , TRY , TO , 
GUESS, THEM. 
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670 DATA HIGHER, LOWER, THAT, IS, RIGHT! , 
IT, TOOK, YOU, , TRIES. 

680 DATA TOO, BAD, IT, WAS, , , YOU, GOT, 

, PERCENT , CORRECT , NOW 
690 DATA ENTER. THE, , NUMBER. FROM, 1 

-5. , MY, GENIUS, OVERCOMES, ME. , I , WAS. 
WRONG. 

700 DATA I, GOT, , PERCENT, CORRECT, 

PLAY, AGAIN Y/N 

710 DATA FIRST, SECOND, THIRD, FOURTH, 
FIFTH 
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Poetry 

The program creates haiku, an ancient form of Japanese poetry. The traditional form calls for 
three lines of five, seven and five syllables. The poems usually refer to seasonal changes and moods. 
Therefore, the phrases selected randomly by the program contain related vocabulary. The program 
can write some very nice haiku. 


100 REM "POETRY" 

110 POKE 53281,1 

120 FOR X-0 TO 9: READ F$(X>: NEXT 
s FOR X=0 TO 7: READ S$(X> 
s NEXT X 

130 FOR X=0 TO 7: READ T$<X): NEXT X 

140 PRINT " CCLR3 " : PRINT TAB< 17)" 

C RVSON 3 C DK . GRAY 3 POETRY C RVSOFF 3 " 

: PRINT 

150 PRINT ! PRINT "HELLO HONORABLE 
USER.": PRINT 

160 PRINT "I AM A JAPANESE HAIKU 
PROGRAM.": PRINT 

170 PRINT "PRESS ANY KEY AND I WILL 
BE PLEASED TOC SPACE 2 3 WRITE 
A POEM FOR YOU." 

180 PRINT : PRINT "HAIKU IS AN 
ANCIENT FORM OF POETRY." 

190 PRINT "IT IS AN HONOR TO WRITE 
FOR YOU." 

200 PRINT : PRINT "HIT ANY KEY TO 
START. " 


MORE-* 
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Alteration— Change the phrases used to build 
the haiku by changing the DATA statements in 
lines 300-390. Each new phrase should have 
the same number of syllables as the phrase it 
replaces. 


210 GET Q$s IF Q$*"" THEN 210 

220 A* INT C RND (8) *10) 

:B* INT ( RND (8) *8) 

:0 INT < RND (6) *8) 

230 PRINT "CCLRKDOWN 83" 

240 PRINT TAB < 20- LEN <F$<A>>/2>; 
F$<A> 

250 PRINT TAB t 20- LEN <S$(B>)/2>; 
S$(B> 

260 PRINT TAB ( 20- LEN <T$<C)>/2>; 
T$<C) 

270 PRINT : PRINT s PRINT 

s PRINT "[SPACE 43HIT CRVS0N3R 
CRVSOFF3 KEY TO RECEIVE A NEW 
POEM. " 

280 GET Q$s IF Q$= ,,M THEN 280 

290 IF Q^a^R" THEN 220 

300 DATA THE GRAY MOUNTAINS HOST, 
TODAY I SAW THE, SPLASHES IN 
THE POND 

310 DATA NOW CHERRY BLOSSOMS, DROP PING 
FROM BRANCHES, FRESHLY DRAWN 
CHALK LINES 

320 DATA WINTER HILLSIDES HOST, NOW 
REDFACED CHILDREN, A MOONLIT 
QUIET 

330 DATA A GARDEN CHANGES , MOMENTARY 
FLASHES OF, SQUIRREL GATHERING 
ACORNS 

340 DATA DISTURB THE REFLECTION 
OF, SWIRL IN THE TWILIGHT 
COOLNESS 

350 DATA RED LEAVES PROVIDE RAKE 
FODDER, REFLECT IMAGINATION 

360 DATA THE LAUGHTER AND SNOWY 
PLAY, CATCH RAYS OF BROKEN 
MOONLIGHT 

370 DATA THE SUMMER LIGHTNING, WINTER 
IS COMING, A MOONLIT QUIET, A 
GARDEN CHANGES 

380 DATA FUEL FOR CHILDREN’S PLAY, OF 
SUMMER CHILDREN, OF REDFACED 
CHILDREN 

390 DATA SPLASHES IN THE POND 


'A 
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No Free Lunch 

Put on your thinking cap for this arithmetic game. You’re out to lunch along the ocean and have 
to hop rocks across hazardous tidepools to reach your food. A correct answer to the arithmetic 
problem gets you to the next rock, closer to your lunch. With three correct answers in a row, you 
can eat. But watch out! A wrong answer gets you all wet. 


100 REM NO FREE LUNCH 
110 POKE 53281,14: POKE 53280,6 
120 PRINT "CCLR3": FOR X=1 TO 17 
: PRINT : NEXT X 

130 PRINT TAB< 34) ; "CRVSON3CBLK3 
LUNCH" 

140 PRINT ” CRVSQN3 CLT. BLU3 CSPACE 23 

CDK. GRAY 3 CSPACE 23 CLT . BLU3 CSPACE 43 
CDK.GRAY3 CLT. BLU 3 C SPACE 63 
CDK. GRAY 3 C SPACE 33 CLT. BLU3 CSPACE 43 
C DK . GRAY 3 C SPACE 23 CLT. BLU3 CSPACE 43 
CDK. GRAY 3 CSPACE 23 CLT. BLU3 CSPACE 33 
CDK. GRAY 3 CSPACE 63CLT.BLU3 
150 PRINT "CRVSON3CBLU3 CDK.GRAY3 

CSPACE 33 CBLU3 CSPACE 33CDK.GRAY3 
CSPACE 23 CBLU3 CSPACE 53CDK.GRAY3 
CSPACE 43 CBLU3 CSPACE 33CDK.GRAY3 
CSPACE 33 CBLU3 CSPACE 33CDK.GRAY3 
CSPACE 33 CBLU3 CSPACE 33CDK.GRAY3 
CSPACE 73CBLU3"; 

MORE-* 
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Alteration— Alter the equations for A and B in 
lines 290 and 300 to change the range of 
numbers in the questions. For example, 
A>INT(RND(9)* 20)+1 will include 
numbers up to 20 in the problems. 


Alteration— Make the game more challenging 
by changing the equations into multiplication 
problems. Change the addition sign in lines 
340, 360 and 370 to the multiplication sign. 


160 PRINT " [RVSON3 [BLU3 [DK.GRAY3 

[SPACE 4 3 [ BLU 3 [ SPACE 23[DK.GRAY3 
[SPACE 2 3 [ BLU 3 [ SPACE 43[DK.GRAY3 
C SPACE 53 CBLU3 C SPACE 33CDK.GRAY3 
C SPACE 33 [BLU3 [SPACE 33CDK.GRAY3 
C SPACE 43 CBLU3 [SPACE 23CDK.GRAY3 
C SPACE 7 3 C BLU 3 11 ■ 

170 PRINT "CRVSON3CDK. GRAY 3 [SPACE 53 
[BLU3 [DK. GRAY 3 [SPACE 43[BLU3 
[SPACE 2 3 [ DK . GRAY 3 [ SPACE 73[BLU3 
[DK.GRAY3 [SPACE 43 [BLU3 [SPACE 23 
[DK. GRAY 3 [SPACE 53 [BLU3 [SPACE 23 
[DK.GRAY3 [SPACE 73[BLU3"; 

180 PRINT “[RVSGN3IDK.GRAY3 [SPACE 403 

190 PRINT "[LT.BLU3 [SPACE 133[RVSON3 
[BLK3NO FREE LUNCH[RVSOFF3[HOME3" 
200 PRINT "[RIGHT 33 [ YEL3 [RVSQN3 
[POUND 3 *" 

210 PRINT “[RIGHT 33 [ YEL3 [RVS0N3 
[SPACE 33“ 

220 PRINT "[RIGHT 33 [YEL3*[RVSON3 
[RVSQFF3 [PQUND3 " 

230 D$= " [ HOME 3 [ DOWN 163" 

240 J$<1)*" [RIGHT 23 " : J$ <2) *" [RIGHT 73 
"s J$<3)«J$<2)+" [RIGHT 93" 

250 J$<4>*J$(3)+"[RIGHT 53" 

: J$ <5) <4) +" [RIGHT 63" 
sJ$<6)*J$<5>+" [RIGHT 53" 

260 U$ ( 1 ) [WHITE3 0" : U$ (2) *"N[RVS0N3 
[RVSOFF3M" s U$ <3> «" [RIGHT3H" 

270 E$ ( 1 ) =" [SPACE 23 " : E$ (2) *" [SPACE 33 
":E$ (3)*" [SPACE 23" 

280 J*1 

290 A* INT ( RND <8>*9) + l 
300 B* INT ( RND (8>*9>+l 
310 PRINT D$;s FOR X*1 TO 3 

: PRINT J$<J);U$(X): NEXT X 
320 PRINT "[HQME3[D0WN 63 [RIGHT 63 
[SPACE 233" 

330 PRINT "[RIGHT 63 [SPACE 233" 

340 PRINT "[HOME 3 [DOWN 63 [RIGHT 63HOW 
MUCH IS"A"+"B5 
350 INPUT C 
360 IF A+B-C THEN 430 
370 PRINT "[RIGHT 6 3 SORRY, THE ANSWER 
IS"A+B 

380 PRINT D$;s FOR X-l TO 3 

s PRINT J$(J) ;E#(X) : NEXT X 
390 PRINT D$; "[DOWN 23”; 

s FOR X«1 TO 2: PRINT J$<J>;" 
[RIGHT 23"jU$(X>s NEXT X 
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400 S0=54272s FOR Z=SO TO SQ+24 

: POKE Z,Os NEXT Zs POKE SO+5,11 
s POKE SO+6,31: POKE SQ+24, 15 
410 POKE S0+ 1,65s POKE SO, 227 
s POKE SO+4 129 

420 PRINT " C HOME 3 C DOWN 93CRIGHT 63 
SPLASH!!!"! FOR T*1 TO 500 
s NEXT Ts GOTO 490 
430 PRINT " CRIGHT 6 3 CORRECT!" 

440 FOR T*0 TO 999: NEXT T 
450 PRINT D$; : FOR X=1 TO 3 

s PRINT J$<J);E$<X>: NEXT X 
460 J=J+1: IF J<6 THEN 290 
470 PRINT D*;s FOR X=1 TO 3 

: PRINT J$<J);U$<X>: NEXT X 
480 PRINT "CH0ME3CD0WN S3CRIGHT 63 
YUM! YUM! EAT WELL! ! ! " 

490 PRINT s PRINT "CRIGHT 63TRY 
AGAIN"; : INPUT Q$ 

500 IF LEFT* <Q$,1)*"Y" THEN 110 
510 END 
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Spelling Bee 

Here’s an educational game of great versatility, providing entertainment and instruction. The 
program features a bee that moves across the screen, leaving behind it a scrambled word. The 
object is to unscramble the word and enter the correct spelling. 


Alteration— Change the number of words 
presented by altering line 320. For example, 
FOR X=*=1 T0 1 0 will ask for 10 questions. 


100 REM SPELLING BEE 
110 W=10 

120 DIM W$(W> , S (20) 

130 POKE 53280,6s POKE 53281,14 
s PRINT "CGLR3CBLK3": PRINT 
140 PRINT "WELCOME TO SPELLING BEE." 
150 PRINT s PRINT "YOU WILL SEE 
THE BEE FLY ACROSS THE" 

160 PRINT "SCREEN, LEAVING LETTERS 
AS IT GOES." 

170 PRINT : PRINT "THESE LETTERS 
ARE THE LETTERS OF AC SPACE 63 
SCRAMBLED WORD." 

180 PRINT "YOU MUST UNSCRAMBLE THE 
WORD AND ENTER" 

190 PRINT "THE CORRECT SPELLING 
TO RECEIVE POINTS."! PRINT 
210 PRINT s PRINT "GOOD LUCK." 

S PRINT 

220 B$ ( 1 ) *" CSPACE 5 3 VC SPACE 23NN" 

230 B$<2>=" CSPACE 53 CRVSQN3 CBLK3 

CYEL3 CBLK3 CYEL3CRVSOFF3CBLK3W" 
240 B$ (3) “"CSPACE 33 CRVS0N3 CBLK3 

CYEL3 CBLK3 CYEL3 CBLK3 CYEL3 
CRVS0FF3" 

250 B$ < 4 ) * " C BLK 3 C SPACE 23<CRVSON3 
CBLK3 CYEL3 CBLK3 CYEL3 CBLK3 
C YEL 3 C RVSOFF 3 C BLK 3 * " 

260 B$ <5) *" CBLK3 CSPACE 6355 " 

270 0$“" C HOME 3 C DOWN 83" 
sP$*"CRIGHT 343" 

280 FOR X»1 TO W: READ W$<X>* NEXT 
290 PRINT s PRINT "HIT ANY KEY TO 
START. 11 

300 GET Q$s IF Q$*"" THEN 300 

310 T=0: S=0 

320 FOR X-l TO 8 

330 A* INT < RND <8) *W) +1 s W$“W$ (A) 
xS$“" " 

340 L“ LEN <W$)s FOR Y*1 TO LsS<Y>=0 
s NEXT Y 

350 FOR Y=1 TO LEN <W$> 

360 K“ INT < RND (3>*L>+1 
: IF S (K) “1 THEN 360 
370 S*=S$+ MID$ (W$,K, 1 ) s S (K) “1 
s NEXT Y 

380 IF S$«W$ THEN 340 
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Alteration— Change or expand the vocabulary 
to fit the user by adding more DATA 
statements after line 600. Change W in line 1 10 
to match the number of words in the 
program’s vocabulary. 


390 PRINT "CCLR3WORD #"X" SCORER'S 
400 F=1 : FOR Y=1 TO 28 
sBS= LEFTS <PS,Y) 

410 IF LEN <BS) >17 AND F<L+1 THEN 
PRINT DS;BS; "CDOWN 33 CLEFT 23" 
MIDS (SS,F,l)sF=F+l 
420 PRINT DS 

430 FOR Z=1 TO 5s PRINT BS;BS<Z> 
s NEXT Z 

440 FOR T=1 TO 49s NEXT T,Y 
450 PRINT DS; 

460 PRINT DS; "CDOWN 63" 

470 INPUT "ENTER CORRECT SPELLING" ;CS 
s PRINT 

480 IF CS*WS THEN PRINT TAB ( 13)" 

CRVS0N3THAT IS CORRECT! "sS=S+ 125 
s GOTO 510 

490 PRINT TAB< 10) " CRVS0N3WR0NG, 

IT WAS "WS"." 

500 FOR T«1 TO 1000s NEXT T 
510 FOR T=1 TO 2000s NEXT T 
520 NEXT X 

530 PRINT "CCLR3" s PRINT 
540 IF S>900 THEN PRINT "YOU WIN 
THE SPELLING BEE!"s GOTO 580 
550 IF 5 >800 THEN PRINT "VERY WELL 
DONE. "s GOTO 580 

560 IF S>700 THEN PRINT "NOT BAD." 
s GOTO 580 

570 PRINT "YOU NEED PRACTICE." 

580 PRINT s INPUT "PLAY AGAIN" ;Q* 

590 IF LEFTS <QS,1)="Y" THEN 290 
600 DATA THAT, THEIR, HOUSE, BO AT, 

PEACE , DRAGON , ORANGE , GAME , LOVE , 
HOPE 


105 



Speed Reading 


Speed Reading 

A fundamental principle of speed reading is that we retain more if we read words in phrases, 
rather than one at a time. This program helps develop that skill. It flashes phrases quickly then tests 
retention of the information with true/false questions. 

Two players are needed. When prompted by the computer, player 1 types in five statements and 
five related true/false questions along with the answer. Then player 2 decides on the time duration 
he’ll see each phrase. Time can be as short as .02 seconds. After the phrases are flashed, player 2 is 
tested with the questions. Score is based on correct answers and the time the player had to read 
questions. 

Then the players change roles and player 2 does the speed-reading test. 


Alteration— Change the game into an 
arithmetic flashcard game. Enter math 
problems and answers instead of sentences. 
Change appropriate PRINT statements if you 
do this. 


100 REM SPEED READING 
110 Q=5s DIM P$<2,Q) ,Q$<2,Q> ,A$<2,Q> 
120 POKE 53281,6s PRINT "CCLRH WHITE!" 
130 PRINT TAB ( 14) " CRVS0N3SPEED 
READING" s PRINT 

140 PRINT "WELCOME TO THE GAME OF 
SPEED AND" 

150 PRINT "CONCENTRATION. " s PRINT 
160 PRINT "YOU MUST BE ABLE TO GRASP 
WHOLE PHRASES IN A MOMENT." 
s PRINT 

170 PRINT "AFTER THE PHRASES ARE 
DISPLAYED, THERE" 

180 PRINT "WILL BE QUESTIONS ABOUT 
THE CONTENT." 

190 PRINT "CORRECT ANSWERS UP YOUR 
SCORE. " 

200 PRINT "THE MORE DIFFICULT THE 
TIME FACTOR, THE MORE POINTS 
ARE EARNED." 

210 PRINT s PRINT "ONE PLAYER ENTERS 
FIVE PHRASES, FIVE" 

220 PRINT "QUESTIONS, AND THE FIVE 
ANSWERS. " 

230 PRINT "THE SECOND PLAYER ENTERS 
THE TIME" 

240 PRINT "FACTOR BY ENTERING THE 
NUMBER OF" 

250 PRINT "SECONDS FOR WHICH THE 

PHRASES ARE C SPACE 7 2 DISPLAYED. " 
260 PRINT * PRINT "HIT ANY KEY FOR 
MORE INSTRUCTIONS." 

270 GET Q*s IF Q$=" " THEN 270 
280 PRINT "CCLR3ALL FIVE PHRASES 
WILL BE SHOWN AND THEN" 

290 PRINT "ALL FIVE QUESTIONS WILL 
BE ASKED. "« PRINT 
300 PRINT "THEN THE SECOND PLAYER 
WILL HAVE A TURN." 
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Alteration— Change the game into a 
translation exercise. Use foreign and English 
equivalents instead of sentences. Change 
appropriate PRINT statements if you do this. 


310 PRINT "ALL QUESTIONS WILL BE 
TRUE OR FALSE" 

320 PRINT "QUESTIONS. TRUE WILL BE 
INDICATED BY A" 

330 PRINT "T AND FALSE WILL BE 
INDICATED BY AN F. "s PRINT 

340 PRINT "HERE IS AN EXAMPLE:" 

: PRINT 

350 PRINT "CRVSON 1 PHRASE 

: CRVS0FF3 THIS IS A COMPUTER 
GAME.": PRINT 

360 PRINT " E RVSON 3 QUEST I ON 

: CRVS0FF3 T OR F": PRINT "THIS 
IS A CARD GAME.": PRINT 

370 PRINT " CRVSON 3 ANSWER 
: CRVSOFFD F" 

380 PRINT : PRINT "HIT ANY KEY TO 
START. " 

390 GET Q$: IF Q$*"" THEN 390 

400 PRINT "CCLRr'tP*! 

410 INPUT "PLAYER ONE'S NAME";N$<1> 
: PRINT 

420 INPUT "PLAYER TWO'S NAME";N$<2> 
: PRINT 

MORE-* 




Speed Reading 


430 PRINT "CCLR3BEGIN NOW "N* (P) " . " 

440 FOR X*1 TO Q: PRINT 

s PRINT "ENTER PHRASE #"X 
450 PRINT s PRINT "PHRASES MAY NOT 
BE MORE THAN 1 LINE LONG (40 
CHARACTERS) . " 

460 PRINT s INPUT P$(P,X) 

470 IF LEN (P$(P,X))>40 THEN 450 
480 PRINT s PRINT "ENTER QUESTION 
#"X 

490 PRINT s PRINT "QUESTIONS MAY 

NOT BE MORE THAN 1 LI NEC SPACE 33 
LONG (40 CHARACTERS)." 

500 PRINT : INPUT Q$(P,X) 

510 IF LEN (Q$(P,X))>40 THEN 450 
520 PRINT s PRINT "ENTER ANSWER #"X 
530 PRINT : INPUT A$(P,X) 

540 IF A$(P,XX>"T" AND A$ (P, X) < >"F" 
THEN PRINT "ANSWER MUST BE T 
OR F.": GOTO 530 
550 PRINT "CCLR3": NEXT X 
560 K*ls IF P*1 THEN K*2 
570 PRINT "OK "N$(K)"."s PRINT 
580 W(K)*0:S(K)*0 
590 PRINT "ENTER THE NUMBER OF 
SECONDS EACH PHRASE" 

600 INPUT "WILL BE SHOWN" ;S 

: IF S>10 THEN PRINT "TOO LONG!" 
s GOTO 590 

610 FOR X=1 TO Q: PRINT "CCLR3CRVSON3 
PHRASE #"Xs PRINT : PRINT s PRINT 
s PRINT : PRINT P$(P,X) 

620 TI$*"000000" 

630 PRINT "CHQME3CRIGHT 143 "TI$ 
s IF TI<S*60 THEN 630 
640 PRINT "CCLR3 "s FOR T*0 TO 999 
: NEXT T,X 

650 FOR X*1 TO 5s PRINT "CCLR3CRVSON3 
QUESTION #CRVS0FF3"Xs PRINT 
660 PRINT s PRINT Q$(P,X): PRINT 
670 INPUT "YOUR ANSWER"; A$ 

:A$- LEFT^ (A$,l) 

680 IF A$<>"T" AND A$<>"F" THEN PRINT 
"THESE ARE T OR F QUESTIONS." 
s GOTO 670 

690 IF A$*A$(P,X) THEN S (K) =S (K) +700-S 
s PRINT " C R VSON 3 CORRECT " : GOTO 720 
700 W(K)=W(K)+ls PRINT "CRVS0N3 
INCORRECT": PRINT P$(P,X) 

710 PRINT : PRINT s FOR T*1 TO 1000 
s NEXT T 

720 FOR T-0 TO 999s NEXT T,X 
730 IF P*1 THEN P=2s GOTO 430 
740 PRINT "CCLR3": PRINT 
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750 PRINT N$<i>" SCORE 

: "S ( 1 ) ,5-W < 1 ) "CORRECT" 

760 PRINT s PRINT 
770 PRINT N$<2>" SCORE 

s "S (2) ,5-W (2) "CORRECT" 

780 IF S ( 1 ) >S (2) THEN PRINT N$<1>" 
WINS! " 

790 IF S (2) >S < 1 > THEN PRINT N$<2>" 
WINS!" 
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Pre-School Counter 

Here’s a useful educational game that helps young children learn counting up to 10. It’s also 
good for introducing a computer to the child. It’s easy to run and play. 

The computer greets the player and then asks him to count the squares displayed. The user 
answers by entering a number. The computer then responds. If the answer is correct, the user is 
rewarded with a smiling face drawn by the computer. If the answer is incorrect, the face’s smile 
becomes a frown. The correct answer is then displayed. 

After 10 exercises, the computer gives the user both a raw and a percentage score. 


100 REM PRE-SCHOOL COUNTER 
110 PRINT " CCLR3 C WHITE] " * PRINT 
s PRINT 

120 A®*" CHOME3 I DOWN 103" 

s B**A*+" CDOWN 63"!D*=A*+"CRIGHT 173 


Alteration— Improve on the smiling face by 
adding eyebrows, hair, ears, etc. Use PRINT 
statements between lines ISO and 260. 


Alteration— Change Q in lines 270 to alter the 
number of questions the user gets. For 
example, C=>0: FOR Q=1 TO 5 gives the 
user S tries. 


130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 


290 

300 


310 

320 


330 


Ml**" CRVSQN3 diiif CRVSQFF3" 
s M2** " C DOWN 3 cooov " 

M3**" C RVSON 3 CSPACE 53 CRVS0FF3 " 

* M4** " C DOWN 3 C RVSON 3 iiiii C RVSOFF 3 " 
M5**" diiif "s M6*» " C DOWN 3 c t SPACE 33 

.H 

TAB ( 17) "f u f" 

TAB( 15) "dCSPACE 731" 

TAB( 14) "dCSPACE 931" 

TAB( 14) "f CSPACE 23QCSPACE 33 


v' 
PRINT 
PRINT 
PRINT 
PRINT 


QC SPACE 23d" 

PRINT TAB( 13) "dCSPACE 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


13) "dCSPACE 

13) "dCSPACE 

14) "fC SPACE 

14) "dCSPACE 

15) "dCSPACE 
17) "v i c" 


113f " 
113f " 
1131 " 
93 d" 
931" 
73-f " 


T* 


TAB< 

TAB( 

TAB < 

TAB< 

TAB< 

TAB < 

C*0: FOR Q*1 TO 10 
FOR X*1 TO 3* GOSUB 480* READ 

* PRINT A*; "CSPACE 23";T* 
s FOR T*1 TO 700* NEXT T 

490* PRINT A*j "CSPACE 123" 
T-l TO 400* NEXT T* NEXT X 
B*j * SQ* INT < RND <8)*10)+1 
Y*1 TO SQ* PRINT " C RVSON 3 
CRVS0FF3" j * NEXT Y 
PRINT s PRINT * INPUT "CSPACE 33 
" J At IF AOSQ THEN 330 
C-C+l* PRINT A*;" C RVSON 3 CORRECT 
CRVS0FF3"* GOSUB 480 

* FOR T*1 TO 2000* NEXT T 

* GOTO 350 

PRINT A*; " C RVSON 3 INCORRECT 
CRVS0FF3"* GOSUB 480 
t FOR T*1 TO 1000* NEXT T 
s GOSUB 500 


GOSUB 
* FOR 
PRINT 
s FOR 
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340 PRINT A*" THE ANSWER" 

s' PRINT " IS "SQs FOR T*1 TO 3500 
! NEXT T 

350 GOSUB 490: PRINT AS;"CSPACE 133" 
360 PRINT A*; " C DOWN 3 Z SPACE 123" 
s PRINT B$"C SPACE 203" 

370 PRINT B$" CDQWN 23 C SPACE 153" 

380 FOR T=1 TO 1000s NEXT Ts RESTORE 
390 NEXT Q 

400 PRINT A*j " OUT OF TEN" 
s FOR T=1 TO 700s NEXT T 
410 GOSUB 490s FOR T*i TO 400s NEXT T 
420 PRINT A$$ "C DOWN 3 TRIES, YOU" 
s FOR T*1 TO 700s NEXT T 
430 GOSUB 490s FOR T*1 TO 400s NEXT T 
440 PRINT A*; "CDQWN 23 GOT "C" 

RIGHT. "s FOR T*1 TO 700s NEXT T 
450 GOSUB 490s FOR T*1 TO 400s NEXT T 
460 PRINT B$s INPUT "PLAY AGAIN" 
s IF LEFT* <Q$,1)»"Y" THEN 100 
470 END 

480 PRINT D*;Ml$s PRINT D$;M2$ 
s RETURN 

490 PRINT D$;M3$s PRINT D$;M4$ 
s RETURN 

500 PRINT D*;M5*s PRINT D$;M6* 
s RETURN 

510 PRINT D$;M3$s PRINT D$;M4* 
s RETURN 

520 DATA HOW, MANY, SQUARES? 
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Keyboard Shooting Gallery 

This game improves keyboard skills. You’re at a carnival shooting gallery containing four animal 
targets. In each target a letter appears for a short time. You score points by typing letters displayed 
in the animals. 

The game has three levels of difficulty, so as you become a better typist, you can make the game 
more challenging. At the expert level, “hunt-and-peck” typists will have trouble scoring well. 


Alteration— The game can also include 
number keys, commas, periods, etc. if you 
change lines 1 10, 120 and 430 as follows: 

110 DIM A$(55) 

1 20 FOR X=0 TO 55: 
A$(X)=CHR$(X+35):NEXT 
430 FOR Y=1 TO 4: 
L$(Y)=A$(INT(RND(8)* 56)): 
PRINT K$(Y); L$(Y): F(Y)=0: NEXT 


100 REM KEYBOARD SHOOTING GALLERY 
110 DIM A$<25> 

120 FOR X=0 TO 25: A$ (X)* CHR$ <X+65> 

: NEXT X 

130 PRINT "ECLR3E WHITE] " 

140 PRINT "WELCOME TO E RVSQN 3 KEYBOARD 
CARN I VAL E RVSOFF 3 . " 

150 PRINT "LETTERS WILL APPEAR AT 
EACH ANIMAL." 

160 PRINT "YOU WILL HAVE A SHORT 
TIME TO ENTER" 

170 PRINT "THE SAME LETTERS." 

180 PRINT : PRINT "SIMPLY TOUCH 
THE CORRECT LETTERS TO GET 
POINTS. " 

190 PRINT "ENTER 1,2 OR 3;" 

200 PRINT "1> EASY C SPACE 232) HARD 
£ SPACE 233) EXPERT" 

210 INPUT L: IF L<1 OR L>3 THEN 190 
220 PRINT : PRINT "HIT ANY KEY TO 
START" 

230 GET Q$: IF Q$=" " THEN 230 
240 PRINT "ECLR3" TAB< 12>;"ERVS0N3 
SCORE: ERVS0FF3": PRINT : PRINT 
250 PRINT " ESPACE 63 EBLK3bESPACE 23N 
E RVSON 3 c E RVSOFF 3 £ SPACE 103£GRN3 
ii." 

260 PRINT "£ SPACE 73£BLK3ERVSON3 

i £ RVSOFF 3 £ SPACE 103 £GRN3 C RVSON 3 
vE SPACE 2 led 11 

270 PRINT " £ SPACE 73EBLK3k kESPACE 103 
EGRN3 ERVSQN3vERVS0FF 3 ESPACE 23 
£RVS0N3c" 

280 PRINT "ESPACE 73 EWHITE3 £ RVSON 3 DOG 
ERVS0FF3 ESPACE 93 E RVSON 3 TURTLE" 

290 PRINT : PRINT : PRINT : PRINT 
: PRINT 

300 PRINT TAB ( 9> " EWHITE3WEBRN3U 

E WHITE 3 WE SPACE 123EYEL3ERVSON3yc" 
310 PRINT TAB< 9) " EBRN3ERVSON3. . 

ERVS0FF3 ESPACE 113EYEL3ERVSON3cv 
ERVS0FF3. >" 

320 PRINT TAB< 9) "EBRN3ERVSQN3dc 

1ERVS0FF3 ESPACE 103EYEL3ERVS0N3 
ESPACE 33d" 
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Keyboard Shooting Gallery 


330 PRINT TAB< 9)" CBRN3 CRVS0N3 

C SPACE 23CRVSOFF3CSPACE 113CYEL3 
CRVSON 3 C SPACE 23 CRVS0FF3 vk" 

340 PRINT TAB( 9) " CBRN3c CRVSON 3 ii_ 
CRVSQFF3v" 

350 PRINT TAB< 9) " CWHITE3CRV50N3BEAR 
CRVS0FF3 C SPACE 93 CRVSON 3 ROOSTER" 
360 K$ < I ) *" C HOME 3 C DOWN 43CRIGHT 113" 

: K$ (2) =K# < 1 ) +" CRIGHT 143" 

370 K$<3)=K$<1)+"CD0WN 103CRIGHT 23" 

: K$ (4) =K$ (2) +" [DOWN 103 CRIGHT 33" 
380 IF L=1 THEN T=20 
390 IF L=2 THEN T=10 
400 IF L=3 THEN T=5 
410 X*0 
420 1*0 

430 FOR Y=1 TO 4:L$<Y)=A$< INT ( RND 
<8>*26>>: PRINT K$(Y);L$<Y> 
:F<Y>=0: NEXT Y 
440 1=0: C=0 

450 GET Q$: IF Q$="" THEN 450 
460 FOR Y=1 TO 4: IF Q$=L$(Y> AND 
F (Y) =0 THEN S=S+10:C=C+1:F(Y>=1 


470 PRINT " C HOME 3 " ; TAB ( 19) ;S 
: IF C=4 THEN I=T: Y=4 
480 NEXT Y 

490 1*1+1: IF I<T THEN 450 
500 X=X+1: IF X<6 THEN 430 
510 PRINT "CCLR3" 

520 PRINT TAB < 15) " CRVSON 3 GAME OVER." 
: PRINT : PRINT 
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Translator 


Translator 

This program is an educational quiz. As is, the program is set up to act as a Spanish-language 
translator. The user picks the number of questions to be asked. An English word is shown and the 
user is asked to type in the Spanish equivalent. 

Correct and incorrect answers are indicated. When the answer is incorrect, the correct word is 
displayed. When all questions have been asked, the computer displays the user’s score. 


100 REM TRANSLATOR 
110 DIM E$<10) ,0$<10) 

120 FOR X=l TO 10s READ E$<X),0$<X> 
s NEXT X 

130 PRINT "ICLR3" 

140 PRINT "WELCOME TO THE CYBERNETIC 
SCHOOL OF I SPACE 5 3 COMPUTER I ZED 
LANGUAGE. " 

150 PRINT s PRINT "I AM AMANDA, 

A SPELLING AND TRANSLATOR I SPACE 23 
PROGRAM. " 

160 PRINT : PRINT "I WILL ASSIST 

YOU IN LEARNING SPANISH! SPACE 33 
TODAY.": PRINT 

170 PRINT : INPUT "WHAT IS YOUR 
NAME";N$: PRINT " ICLR3" 

ISO PRINT "ALL RIGHT ";N$j PRINT 
190 PRINT "WE SHALL BEGIN BY 

DISCUSSING THE RULES.": PRINT 
200 PRINT "1> WHENEVER YOU ARE ASKED 
FOR AN ANSWER! SPACE 4 3 TYPE 
ONE IN.": PRINT 

210 PRINT "2) WHENEVER YOU TYPE 
A RESPONSE, YOU" 

220 PRINT "ISPACE 33MUST ENTER IT 
BY PRESSING !RVSON 3 RETURN 
!RVS0FF3. ": PRINT 
230 PRINT "3> I WILL TELL YOU TO 

GIVE THE CORRECT ! SPACE 53SPANISH 
FOR A WORD. TYPE" 

240 PRINT "! SPACE 33 IN YOUR ANSWER 

AND PRESS ! R VSON 3 RETURN ! R VSOFF 3 
.": PRINT 

250 PRINT "ISPACE 3 3 WHEN THE GAME 
IS OVER I WILL TELL" 

260 PRINT "ISPACE 33H0W WELL YOU 
DID OVERALL.": PRINT : PRINT 
270 INPUT "HOW MANY QUESTIONS SHALL 
I ASK YOU";Q 

280 S«0: FOR C-l TO Q: PRINT "ICLR3" 

: PRINT "QUESTION #"C 
290 X* INT ( RND <8>*10>+1 

: PRINT "GIVE THE CORRECT SPANISH 
FOR: "E$<X> 

300 PRINT : INPUT A* 
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Alteration— Enlarge the computer’s 
vocabulary by adding more DATA statements 
after line 420. Each English word must be 
followed by a comma and its foreign 
translation. You will also need to change lines 
1 10 and 120 to accommodate the larger list. 
For example, if you have 50 words, change the 
DIM statements in line 110 to DIM E$(50), 
O$(50). Change the maximum value of X in 
line 120 to that same number of words: FOR 
X=1 TO 50. It is possible to add several 
thousand words to a Commodore 64. 

Alteration— Change the Spanish to any other 
language using the Roman alphabet. Change 
the vocabulary in lines 410-420. 


310 IF A$=0*<X> THEN S*S+1 

: PRINT "CORRECT"! GOTO 330 

320 PRINT "INCORRECT. THEN CORRECT 
TRANSLATION IS: C SPACE 23"0*(X> 

330 PRINT i PRINT "PRESS CRVSON1 
RETURN ERVSOFF 3 FOR NEXT 
QUESTION. " 

340 GET Q*: IF Q**"" THEN 340 

350 NEXT C 

360 PRINT "CCLRa"^"," 

• PRINT " OUT OF " Q " QUEST I ONS 
YOU HAD"S"RIGHTs " 

370 PRINT INT <S*100/Q+. 5) "PERCENT. " 
s PRINT 

3G0 INPUT "WOULD YOU LIKE TO PLAY 
AGAIN" ;Q* 

390 IF LEFT* <Q*,1>*"Y" THEN PRINT " 
CCLR3"! GOTO 270 

400 PRINT i PRINT "THANKS FOR 
PLAYING!" 

410 DATA TO DO,HACER,TO TALK,HABLAR, 
TO PUT , PQNER , TO EAT y COMER 

420 DATA DOOR, PUERTA, MOUTH, BOCA, COW, 
VACA , FORK , TENEDOR , SPOON , CUCHARA , 
PEACE, PAZ 
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UNDERSTANDING PROGRAM PRINTOUTS 

The program lines in this book are actual computer printouts of the working games. To 
make the lines easier for you to copy, a special notation system is used for graphics 
characters, color and cursor keys. 

An underlined, upper-case letter means that you should hold down the SHIFT key 
while entering that letter. For example, if you see Z, shift while entering Z. A diamond will 
appear on the screen. An underlined, lower-case letter indicates that you should hold 
down the Commodore key (<=) while entering that letter. 

Some keys (+, -, £, @, *) will be underlined twice if the Commodore key (c*) is to be 
held down; underlined once if the SHIFT key is to be held down. 

When you see a word in brackets, it indicates using special control keys. For example, 
[DOWN] means press the cursor-up/down key. [DOWN 7] means press the cursor- 
up/down key seven times. The only exception is with spaces. A single space looks that 
way in the program line. If two or more spaces are required, an expression will be in 
brackets, such as [SPACE 2]. 

The table on the next page lists some more key combinations. For example, if the pro- 
gram shows [WHT] press the CTRL and WHT keys at the same time. 
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KEY-COMBINATION TABLE 

Listing 

Press Key(s) 

[UP] 

SHIFT-CURSOR UP/DOWN 

[DOWN] 

CURSOR UP/DOWN 

[LEFT] 

SHIFT-CURSOR 


LEFT/RIGHT 

[RIGHT] 

CURSOR LEFT/RIGHT 

[HOME] 

CLR HOME 

[CLR] 

SHIFT-CLR HOME 

[RVSON] 

CTRL-RVS ON 

[RVSOFF] 

CTRL-RVS OFF 

[BLK] 

CTRL-BLK 

[WHT] 

CTRL-WHT 

[RED] 

CTRL-RED 

[CYN] 

CTRL-CYN 

[PUR] 

CTRL-PUR 

[GRN] 

CTRL-GRN 

[BLU] 

CTRL-BLU 

[YEL] 

CTRL-YEL 

[ORN] 

CM 

[BRN] 

C= 2 

[LT. RED] 

C= 3 

[DARK GRAY] 

C= 4 

[MED. GRAY] 

C= 5 

[LT. GRN] 

C= 6 

[LT. BLU] 

C=7 

[LT. GRAY] 

C= 8 

[F-1] 

fl 

[F-2] 

f2 

[F-3] 

f3 

[F-4] 

f4 

[F-5] 

f5 

[F-6] 

f6 

[F-7] 

f7 

[F-8] 

f8 

[POUND] 

£ 
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Great Games You Can Program! 
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Moon Lander 


Create 35 amazing games for your Commodore 64. 
Simply type the complete program listing into your 
computer and start playing. Games include color, 
graphics, sound, instructions to players, and scoring. 

Games are written in Commodore 64 BASIC. While 
you’re having fun, you’ll learn more about programming. 
Each game features suggestions for programming 
variations— change the games to do exactly what you 
want! 

Choose from Arcade, Board and Educational games. 
Your Commodore 64 has never been so much fun! 
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